# code for this inspired by Devel::Symdump
sub _find_name_of_sub_in_pkg{
	my ($ref, $pkg) = @_;
	no strict 'refs';
	#return *{$ref}{NAME} if ref $ref eq 'GLOB';
	while (my ($key,$val) = each(%{*{"$pkg\::"}})) {
			local(*ENTRY) = $val;
			if (defined $val && defined *ENTRY{CODE}) {
				next unless *ENTRY{CODE} eq $ref;
				# rewind "each"
				my $a = scalar keys %{*{"$pkg\::"}};
				return $key;
			}
		}

	die "failed to find name for StartRunmode code ref $ref in package $pkg\n";
}

##</code><code>##

use strict;

package Beth;
use Attribute::Handlers;

sub print_name {
	my ($package, $symbol, $referent, $attr, 
            $data, $phase, $filename, $linenum) = @_;
	if (ref $symbol eq 'GLOB'){
	   print *{$symbol}{NAME};
	}
	print "\n";
}

sub Lion :ATTR(CODE,BEGIN) {
	print_name(@_);
	
}

sub Tiger :ATTR(CODE,CHECK) {
	print_name(@_);
}


sub bar : Lion {
	print "pling.\n";
}	


sub foo : Tiger {
	print "pling.\n";
}