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