support method modifiers for overrided accessor

Signed-off-by: Ji-Hyeon Gim <potatogim@gluesys.com>

Author: potatogim

lib/Mouse/Meta/Class.pm

@@ -250,6 +250,26 @@ sub add_attribute {
     # install accessors first
     $attr->install_accessors();
 
+    foreach my $super ($self->superclasses)
+    {
+        my $meta      = Mouse::Util::get_metaclass_by_name($super);
+        my $modifiers = $meta->{modifiers};
+
+        foreach my $type (qw(accessor reader writer predicate clearer))
+        {
+            next unless (exists $attr->{$type}
+                        && exists $modifiers->{$attr->{$type}});
+
+            foreach my $mtype (qw(before around after))
+            {
+                foreach my $m ( @{ $modifiers->{$attr->{$type}}->{$mtype} } )
+                {
+                    $self->_install_modifier($mtype, $attr->{$type}, $m);
+                }
+            }
+        }
+    }
+
     # then register the attribute to the metaclass
     $attr->{insertion_order}   = keys %{ $self->{attributes} };
     $self->{attributes}{$name} = $attr;

t/020_attributes/037_overrided_accessor_modifier.t

@@ -0,0 +1,113 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Exception;
+
+{
+    package Foo;
+    use Mouse;
+
+    has 'foo' => (
+        is     => 'ro',
+        writer => 'set_foo',
+    );
+
+    has 'foo_arounded' => (
+        is      => 'rw',
+        isa     => 'Int',
+        default => 0,
+    );
+
+    around 'set_foo' => sub {
+        my $orig = shift;
+        my $self = shift;
+
+        $self->foo_arounded($self->foo_arounded + 1);
+
+        $self->$orig(@_);
+    };
+}
+
+{
+    package Bar;
+
+    use Mouse;
+
+    extends 'Foo';
+
+    has '+foo' => (
+        lazy => 0,
+    );
+
+    has 'bar' => (
+        is      => 'ro',
+        writer  => 'set_bar',
+        reader  => 'get_bar',
+        default => 'bar',
+    );
+
+    has 'bar_arounded' => (
+        is      => 'rw',
+        isa     => 'Int',
+        default => 0,
+    );
+
+    around 'set_foo' => sub
+    {
+        my $orig = shift;
+        my $self = shift;
+
+        $self->foo_arounded($self->foo_arounded + 1);
+
+        $self->$orig(@_);
+    };
+
+    around 'get_bar' => sub
+    {
+        my $orig = shift;
+        my $self = shift;
+
+        $self->bar_arounded($self->bar_arounded + 1);
+
+        $self->$orig(@_);
+    };
+}
+
+{
+    package Baz;
+
+    use Mouse;
+
+    extends 'Bar';
+
+    has '+bar' => (
+        is     => 'ro',
+    );
+
+    around 'get_bar' => sub
+    {
+        my $orig = shift;
+        my $self = shift;
+
+        $self->bar_arounded($self->bar_arounded + 1);
+
+        $self->$orig(@_);
+    };
+}
+
+{
+    my $baz = Baz->new;
+
+    isa_ok($baz, 'Baz');
+
+    $baz->set_foo(1);
+    $baz->get_bar();
+
+    is($baz->foo_arounded, 2, '... got hte correct value');
+    is($baz->bar_arounded, 2, '... got hte correct value');
+}
+
+done_testing;