| … | … | ||
|---|---|---|---|
| 76 | 76 | ||
| 77 | $cb->($data) | 77 | $cb->($data) |
| 78 | } | 78 | } |
| 79 | 79 | ||
| 80 | sub inject_global_event { | 80 | sub inject_global_event { |
| 81 | my ($data) = @_; | 81 | my $event = shift; |
| 82 | 82 | ||
| 83 | my $cb = $hook[$data->{event_code}] | 83 | my $cb = $hook[$event] |
| 84 | or return; | 84 | or return; |
| 85 | 85 | ||
| 86 | List::Util::max map $_->($data), values %$cb | 86 | List::Util::max map &$_, values %$cb |
| 87 | } | 87 | } |
| 88 | 88 | ||
| 89 | sub inject_command { | 89 | sub inject_command { |
| 90 | my ($name, $obj, $params) = @_; | 90 | my ($name, $obj, $params) = @_; |
| 91 | 91 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |