view release on metacpan or  search on metacpan

lib/Acme/Llama.pm  view on Meta::CPAN

=over

=item B<new>

Create a new llama, all by yourself! :)

=cut

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    $llama{'foodage'}   = 0;
    $llama{'happiness'} = 0;
    $llama{'tired'}     = 0;
    return $self;
}

=item B<feed>

A well-fed llama is a happy llama.
The perl Gods like happy llamas.