use strict;
use warnings;

package One;
use NEXT;

sub MODIFY_CODE_ATTRIBUTES {
    my ( $pkg, $ref, @attr ) = @_;
    print "Package One handler given (@attr) and handles 'Eins'\n";
    @attr = grep { $_ ne 'Eins' } @attr;
    return $pkg->NEXT::MODIFY_CODE_ATTRIBUTES($ref, @attr);
}

package Two;
use base qw(One);
use NEXT;

sub MODIFY_CODE_ATTRIBUTES {
    my ( $pkg, $ref, @attr ) = @_;
    print "Package Two handler given (@attr) and handles 'Zwei'\n";
    @attr = grep { $_ ne 'Zwei' } @attr;
    return $pkg->NEXT::MODIFY_CODE_ATTRIBUTES($ref, @attr);
}

package Three;
use NEXT;

sub MODIFY_CODE_ATTRIBUTES {
    my ( $pkg, $ref, @attr ) = @_;
    print "Package Three handler given (@attr) and handles 'Drei'\n";
    @attr = grep { $_ ne 'Drei' } @attr;
    return $pkg->NEXT::MODIFY_CODE_ATTRIBUTES($ref, @attr);
}

package Four;

sub empty {}

package Five;
use base qw[ Two Three Four ];

sub foo : Eins Zwei Drei {
}

__END__