#!/usr/bin/perl 
use strict;
use warnings;

package Foo::Sorted;
use Attribute::Handlers;

sub Sorted :ATTR {
  print "all sorted"
}

package main;

my Foo::Sorted $tst :Sorted;