# 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™.