use strict;
use warnings;
use Attribute::Handlers;


package H;
sub Sorted :ATTR {
  print "sorted"
}


package main;

my $tst :H::Sorted;
sub tst :H::Sorted {
  print "hui"
}
  
tst();