view release on metacpan or  search on metacpan

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

=cut

sub nap {
    if ( $llama{'tired'} == 0 ) { $llama{'happiness'}--; return; }
    else { $llama{'tired'} = 0 and $llama{'happiness'}++; return 1; }
}

=item B<sacrifice>

Ah, we finally have reached the last goal of all good llamas. Sacrificing to the Perl gods. 
You'd best hope your llama was happy enough, or death to your Perl script will come! :(

=back
=cut

sub sacrifice {
    my ( $self, %args ) = @_;
    $args{'TO'} ||= '';
    if ( lc( $args{'TO'} ) ne 'perl gods' ) {
        die('Who are you sacrificing this llama to?');
    }