Using Package Defaults

Using Package Defaults

use Your::Point

my $point = Your::Point->new;

print "x: ", $point->x, "\n";     # 0
print "y: ", $point->y, "\n";     # 0

$point->x(10);
$point->y(20);

print "x: ", $point->x, "\n";     # 10
print "y: ", $point->y, "\n";     # 20

Thus Spake Andy:

Now we can call the new() without any arguments and it will use the default values in the $X and $Y package variables.