First page Back Continue Last page Overview Graphics
Method Modifiers
package Employee::Chef;
use Moose;
extends qw(Employee);
augment do_work => sub {
my $self = shift;
while ( @burgers ) {
$self->flip_burger(shift @burgers);
}
};
$chef->do_work; # punch in, flip burgers, punch out