moose monkey patch

gistfile1.pl

package Dog;

#use Any::Moose;
use Moose;


sub bark{
    my $self = shift;
    print $self->word() x 2;
    print "\n";
}

sub word{
    return "멍";
}


package main;


my $meta = Dog->meta;
$meta->add_override_method_modifier('word',sub{return '냐옹'});

my $d = Dog->new();
$d->bark();