package MyAttributes;
use Attribute::Handlers;

sub UNIVERSAL::FOO : ATTR(CODE) {
	my ($package, $symbol, $referent, $attr, $data) = @_;
	
    # in 5.12 i get "*Baz::bar" 
    # in 5.10 i get "*MyAttributes::ANON"
	my $f = *$symbol;
	$f =~ tr/*//d;
	
	print "Function $f is has FOO attribute";
}

package Baz;
sub bar :FOO { ... }
1;