use 5.014;

use Sub::Information;
use Attribute::Lexical 'CODE:FOO' => \&handle_foo_attr;

sub handle_foo_attr
{
    my ($func, $identifier, $attrs, $caller) = @_;
    my $info = Sub::Information->new( $func );
    my $name = $info->name;

    say "Function '$name' has FOO attribute";
}