Select Code to Download

my $object = SomeClass->new(digits => '123');

...

$john->age++;
printf "%s is now %d years old", $john->name, $john->age;

Old:
$john->age($john->age + 1);
...
New:
$john->age++;
$john->name =~ s/Doe/Smith/;