Help for this page

Select Code to Download


  1. or download this
    package Monks::Data;
    
    ...
    sub get_texture_for { +{qw{Rabbits soft Minks supersoft Cats coarse}} 
    +}
    
    1;
    
  2. or download this
    package Monks;
    
    ...
    }
    
    1;
    
  3. or download this
    #!/usr/bin/env perl -l
    
    ...
    }
    
    print 'Fur texture for Cats: ', $obj->find_fur_texture('Cats');
    
  4. or download this
    Cats: furry? Yes
    Alligators: furry? No
    Rabbits: furry? Yes
    Fur texture for Cats: coarse