view release on metacpan or  search on metacpan

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

=head1 OBJECT INTERFACE

=over

=item B<new>

Create a new moose, all by yourself! :)

=cut

has [ 'foodage','happiness','tired']=> (is=>'rw',default=>0,isa=>'Int',init_arg=>"");
no Moose;

=item B<feed>

A well-fed moose is a happy moose.
The perl gods like happy moose.
Too much food makes a sad moose though. :(
No one likes a sad moose.

[Technical details: returns 1 for a happy hungry moose, and returns 0