############### SuperClass.pm

package SuperClass;
use strict;
use warnings;
use Attribute::Handlers();

# Keeping this simple for now.
sub WrapSub : ATTR(CODE) {
    my( $class, $typeglob, $referent, ) = @_;
    my( $package_sub ) = sprintf '%s::%s', $class, *{ $typeglob }{NAME};

    my $wrap_sub = sub {
        warn 'before';
        $referent->( @_ );
        warn 'after';
    };

 warn 'WrapSub wrapping: ', $package_sub;
    no warnings 'redefine';
    *{ $typeglob } = $wrap_sub;
    return;
}

1;


#################### SubClass.pm
package SubClass;
use strict;
use warnings;
use parent 'SuperClass';

sub foo : WrapSub {
    warn 'fooooo';
}

1;


#!/usr/bin/env perl
#################### test_attribute_handlers_compiletime.pl
use strict;
use warnings;
use SubClass();

SubClass->foo;

__END__

$ ./test_attribute_handlers_compiletime.pl
WrapSub wrapping: SubClass::foo at SuperClass.pm line 17.
before at SuperClass.pm line 12.
fooooo at SubClass.pm line 7.
after at SuperClass.pm line 14.


#!/usr/bin/env perl
#################### test_attribute_handlers_runtime.pl
use strict;
use warnings;
use UNIVERSAL::require();
SubClass->require;

SubClass->foo;

__END__

$ ./test_attribute_handlers_runtime.pl
fooooo at SubClass.pm line 7.