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 $bar1 = Bar->new(name => "パー");
my $bar2 = Bar->new(name => "アホ");
$bar1->say();
$bar2->say();

# $bar1 のインスタンス「のみ」にsay2をはやす
# （Traitsでもできるけど、ここは敢えてMooseコアのみで・・・）
$bar1->meta->create_anon_class(
    superclasses => [ $bar1->meta->name ],
    methods => {
        say2 => sub {
            my $self = shift;
            print $self->name, "やがな\n";
        }
    }
)->rebless_instance($bar1);

$bar1->say2();
$bar2->say2(); # これはエラー。$bar1にしかsay2をはやしてない