Superclass method modifiers don't run when attribute is extended/modified

See the code below. It outputs:

--- Class Foo::Bar doesn't modify att1 definition ---
after att1 write: dummy
--- Class Foo::Bar overrides att1 definition, specifies only isa ---
after att1 write: dummy
--- Class Foo::Bar overrides att1 definition, specifies is and isa ---
--- Class Foo::Bar extends att1 definition with "has '+att1'" ---

I expected "after att1 write: dummy" to be printed in every case. Why does
extending (or overriding with only some options) an attribute definition
prevent the after modifier of the parentclass being called?


Bernardo

=====================================================================

#!/usr/bin/env perl

{
    package Role1;
    use Moose::Role;

    has 'att1' => ( is => 'rw', isa => 'Any' );
}
{
    package Foo;
    use Moose;
    with 'Role1';

    after 'att1' => sub {
        my($self, $att1) = @_;

        if (defined $att1) {
            print "after att1 write: ", $att1, "\n";
        }
        else {
            print "after att1 read\n";
        }
    }
}

print "--- Class Foo::Bar doesn't modify att1 definition ---\n";
{
    package Foo::Bar;
    use Moose;
    extends 'Foo';

    has 'att2' => ( is => 'rw' );
}
$o = Foo::Bar->new(att1 => 'kk');
$o->att1('dummy');

print "--- Class Foo::Bar overrides att1 definition, specifies only
isa ---\n";
{
    package Foo::Bar;
    use Moose;
    extends 'Foo';

    has 'att2' => ( is => 'rw' );
    has 'att1' => ( isa => 'Str' );
}
undef $o;
$o = Foo::Bar->new(att1 => 'kk');
$o->att1('dummy');

print "--- Class Foo::Bar overrides att1 definition, specifies is and
isa ---\n";
{
    package Foo::Bar;
    use Moose;
    extends 'Foo';

    has 'att2' => ( is => 'rw' );
    has 'att1' => ( is => 'rw', isa => 'Str' );
}
undef $o;
$o = Foo::Bar->new(att1 => 'kk');
$o->att1('dummy');

print "--- Class Foo::Bar extends att1 definition with
\"has '+att1'\" ---\n";
{
    package Foo::Bar;
    use Moose;
    extends 'Foo';

    has 'att2' => ( is => 'rw' );
    has '+att1' => ( isa => 'Str' );
}
undef $o;
$o = Foo::Bar->new(att1 => 'kk');
$o->att1('dummy');

==================================================================