Select Code to Download

package Person;

...
sub jobs { @{$_[0]{jobs}} };
sub job { $_[0]{jobs}[$#{$_[0]{jobs}}] } # the last job is assumed cur
+rent

package Person;

# ... other methods and such

sub cool { not $_[0]{job} =~ /programmer/ };

sub cool { not $_[0]->job() =~ /programmer/ };

nothingmuch% perl

...
            Rate method direct
method  252717/s     --   -75%
direct 1030928/s   308%     --