Select Code to Download

my $obj = Monks::->new;

my $obj = Monks::->new(data => $ARGV[0]);

package Monks::DataWeird;

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

1;

package Monks;

...
}

1;

$ pm_1169455_oo_class_example.pl Monks::Data
Cats: furry? Yes
Alligators: furry? No
Rabbits: furry? Yes
Fur texture for Cats: coarse

$ pm_1169455_oo_class_example.pl Monks::DataWeird
Cats: furry? No
Alligators: furry? Yes
Rabbits: furry? Yes
Fur texture for Cats: scales

$ pm_1169455_oo_class_example.pl XMonks::Data
Can't locate object method "get_furries" via package "XMonks::Data" at
+ Monks.pm line 24.