gistfile1.pl

# モンキーパッチングは万人におすすめできる手法とは思えないのでやらないほうがいいと思うなぁ - lestrrat
# http://d.hatena.ne.jp/bingo_nakanishi_perl/20090711/1247331243

package Bar;
use Moose;

has name => (is => 'ro');
sub say {
    my $self = shift;
    print $self->name, "です\n";
}

package main;
use strict;

my $bar = Bar->new(name => "パー");
$bar->say();

$bar->meta->add_method(say2 => sub {
    my $self = shift;
    print $self->name, "やがな\n";
});

$bar->say2();