gistfile1.txt

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

package Bar;
use strict;
sub new {
    my($class, %args) = @_;
    return bless { %args }, $class;
}

sub say {
    my $self = shift;
    print $self->{name}, "です\n";
}

package main;

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

*Bar::say2 = sub{
    my $self = shift;
    print $self->{name}, "やがな\n";
};

$bar->say2();