package Foo;
use strict;
use Attribute::Handlers;

sub import {

  my $pkg = (caller)[0];
  
  eval <<"_code_";
 sub ${pkg}::Sorted :ATTR {
    print "all sorted"
 }
_code_
  
}

1;