## autoload
     sub AUTOLOAD
     {
           my $self =  shift;
           ( my $subname = $AUTOLOAD ) =~ s/.*:://;
           
           if( $obj->{ $subname } ) {
                  ## this is over simplified, so you may need to do
                  ## other checks...
                  return $self->{ subname };
           } else {
                  croak "No such sub";
           }      }