package Person;

# ... other methods and such

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