sub is_carryable { my $self = shift; if ( $self->is_alive() ) { # can't carry a live orc! return 0; } else { # dead body return 1; } }