a.pl

use v5.14;

use MooseX::Declare;

role EvilMonster {
    requires 'eat_brains';
    before eat_brains( Num $enemies ) { }
}


class Zombie with EvilMonster {

    method eat_brains( Num $enemies ) { warn 'Yummy ...' }
}

my $z = Zombie->new;
$z->eat_brains( 7 );