Using Your::Point3

Using Your::Point3

use Your::Point3

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

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

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

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

Thus Spake Andy:

See? It Just Works™.