| … | … | ||
|---|---|---|---|
| 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 |