Select Code to Download

use Class::Struct;
use strict;
...
$T->xyz starts as: 123
$T->xyz is now:    456
$T->xyz is now:    789

my $a = new Test ( xyz => 123 );         # original
my $b = new Test ( xyz => $a->xyz );     # copy of a

$b->xyz(456);
printf "a=%d b=%d\n", $a->xyz, $b->xyz;  # a=123 b=456