… | … | ||
---|---|---|---|
67 | my @exts; | 67 | my @exts; |
68 | my @hook; | 68 | my @hook; |
69 | my %command; | 69 | my %command; |
70 | 70 | ||
71 | sub inject_event { | 71 | sub inject_event { |
72 | my ($data) = @_; | 72 | my $extension = shift; |
73 | my $event_code = shift; | ||
73 | 74 | ||
74 | my $cb = $hook[$data->{event_code}]{$data->{extension}} | 75 | my $cb = $hook[$event_code]{$extension} |
75 | or return; | 76 | or return; |
76 | 77 | ||
77 | $cb->($data) | 78 | &$cb |
78 | } | 79 | } |
79 | 80 | ||
80 | sub inject_global_event { | 81 | sub inject_global_event { |
81 | my $event = shift; | 82 | my $event = shift; |
82 | 83 |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |