package Events;
 
use Annotations;
use Attribute::Handlers;
 
sub Event :ATTR(CODE) {
            my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
            Annotations::Annotate($referent, eventhandler => 1);
}