GitHub
/
pbot
mirror of https://github.com/pragma-/pbot.git
3
0
Fork 0
Code Issues Projects Releases Wiki Activity

EventDispatcher: rename `event_id` to `handler_id`

This commit is contained in:
Pragmatic Software 2021-07-04 23:26:54 -07:00
parent 2546b13ba6
commit 7fb48f9b5d
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
PBot/EventDispatcher.pm
View File

@ -28,14 +28,14 @@ sub register_handler {
my ($package) = caller(0);
# internal identifier to find calling package's event handler
my $event_id = "$package-$event_name";
my $handler_id = "$package-$event_name";
# add the event handler
$self->{handlers}->{$event_name}->{$event_id} = $subref;
$self->{handlers}->{$event_name}->{$handler_id} = $subref;
# debugging
if ($self->{pbot}->{registry}->get_value('eventdispatcher', 'debug')) {
$self->{pbot}->{logger}->log("EventDispatcher: Add handler: $event_id\n");
$self->{pbot}->{logger}->log("EventDispatcher: Add handler: $handler_id\n");
}
}
@ -47,13 +47,13 @@ sub remove_handler {
my ($package) = caller(0);
# internal identifier to find calling package's event handler
my $event_id = "$package-$event_name";
my $handler_id = "$package-$event_name";
# remove the event handler
if (exists $self->{handlers}->{$event_name}) {
delete $self->{handlers}->{$event_name}->{$event_id};
delete $self->{handlers}->{$event_name}->{$handler_id};
# remove root event-name key if it has are no more handlers
# remove root event-name key if it has no more handlers
if (not keys %{$self->{handlers}->{$event_name}}) {
delete $self->{handlers}->{$event_name};
}
@ -61,7 +61,7 @@ sub remove_handler {
# debugging
if ($self->{pbot}->{registry}->get_value('eventdispatcher', 'debug')) {
$self->{pbot}->{logger}->log("EventDispatcher: Remove handler: $event_id\n");
$self->{pbot}->{logger}->log("EventDispatcher: Remove handler: $handler_id\n");
}
}
@ -78,13 +78,13 @@ sub dispatch_event {
# if the event-name has handlers
if (exists $self->{handlers}->{$event_name}) {
# then dispatch the event to each one
foreach my $event_id (keys %{$self->{handlers}->{$event_name}}) {
foreach my $handler_id (keys %{$self->{handlers}->{$event_name}}) {
# event handler subref
my $subref = $self->{handlers}->{$event_name}->{$event_id};
my $subref = $self->{handlers}->{$event_name}->{$handler_id};
# debugging
if ($debug) {
$self->{pbot}->{logger}->log("Dispatching $event_name to handler $event_id\n");
$self->{pbot}->{logger}->log("Dispatching $event_name to handler $handler_id\n");
}
# invoke event handler