Select Code to Download

package Monks::Data;

...
sub get_texture_for { +{qw{Rabbits soft Minks supersoft Cats coarse}} 
+}

1;

package Monks;

...
}

1;

#!/usr/bin/env perl -l

...
}

print 'Fur texture for Cats: ', $obj->find_fur_texture('Cats');

Cats: furry? Yes
Alligators: furry? No
Rabbits: furry? Yes
Fur texture for Cats: coarse