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