Select Code to Download

use Attribute::Property;

...
my $obj = Cool->new;
$obj->name = "My right foot";
print $obj->name, "\n";