package EventHandlers;
 
our %EventHandlers;
 
use Attribute::Handlers;
use Carp;
 
sub Event :ATTR(CODE) {
            my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
            my $name = *{$symbol}{NAME};
            $EventHandlers{$name} = 1;
}