Select Code to Download

package Soldier;
use strict;
...
$foo->rank('Major');
printf "name: %s, rank: %s\n", $foo->name, $foo->rank;
print Dumper($foo) . "\n";

name: John, rank: Major
$VAR1 = bless( [], 'Soldier' );