view release on metacpan or  search on metacpan

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

    }
    else { 
    	$self->tired(0) and $self->happiness( $self->happiness()+1); 
    	return 1; 
    }
}

=item B<sacrifice>

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

=back
=cut

sub sacrifice {
    my ( $self) = shift;
    my ( $args ) = @_;
    $args->{'TO'} ||= '';
  
    if ( lc( $args->{'TO'} ) ne 'perl gods' ) {