moose monkey patch2

gistfile1.pl

package Dog;

#use Any::Moose;
use Moose;

has 'name'=>(is=>'rw');

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

sub word{
    my $self = shift;
    return $self->name()."멍";
}


package main;


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

undef(*Dog::word);
*Dog::word = sub{
    my $self = shift;
    return $self->name()."녕"
};
my $d = Dog->new(name=>'똥구');
$d->bark();