Select Code to Download

package Monks;

...
}

1;

package Monks::Data;

...
);

1;

#!/usr/bin/perl

...
print "Fur texture for Cats: ", $object->find_fur_texture('Cats'), "\n
+";

exit 0;

Checking if Cats are furry:
Yes
...

Fur texture for Cats: coarse