Select Code to Download

Select or download this

use Attribute::Handlers;
use Carp;
...
                        $referent->(@_)
            }
}

Select or download this

package EventHandlers;
 
...
            my $name = *{$symbol}{NAME};
            $EventHandlers{$name} = 1;
}

Select or download this

package Annotations;
 
...
            my ($this, $name) = @_;
            $Annotations{$this}{$name}
}

Select or download this

package Events;
 
...
            my ($package, $symbol, $referent, $attr, $data, $phase) = 
+@_;
            Annotations::Annotate($referent, eventhandler => 1);
}

Select or download this

if (my $event = MyEvents->can($CGI->param('event'))) {
            die unless $event->annotation('eventhandler');
            MyEvents->$event();
}

Select or download this
```
$event->{eventhandler}
```
Select or download this
```
annotation($event, 'eventhandler')
```