#------------------------------------------------------------
 package Fish; 
 use base 'Class::Prototyped';
 #------------------------------------------------------------
 # set some lexical class data
 my @family = qw( Loricariidae Balistidae Gobiidae 
                  Syngnathidae Megachasmidae );
 my %sizes;
 @sizes{@family} = qw( medium small small 
                       tiny huge );
 #------------------------------------------------------------
 # set up the only method required to start coding,
 # attributes(), which  must be defined in this general format
 sub attributes {
      {#                   DEFAULT           ACCESS
        _favorite     => [ undef,        'writeonce' ],
        _current_fish => [ undef,            'write' ],
        _family       => [ \@family,      'readonly' ],
        _size         => [ \%sizes,       'readonly' ],
      }
 }
 #------------------------------------------------------------
