91.pl

use v5.14;

package Zombie;
use Moose;

has 'victims', is => 'ro', isa => 'ArrayRef[Human]';
has 'home', is => 'ro', isa => 'Str';

sub eat_brain {
    my $self = shift;

    my @new_victims = @_;
    push $self->victims, @new_victims;
}

package main;

my $z = Zombie->new;

for my $attr ( $z->meta->get_all_attributes ) {
    say $attr->name;
}

for my $method ( $z->meta->get_all_methods ) {
    say $method->fully_qualified_name;
}

if ( $z->meta->has_method( 'eat_brain' ) ) {
    $z->eat_brain;
}