--- AnyEvent-MPV/MPV.pm 2023/03/19 23:24:20 1.6 +++ AnyEvent-MPV/MPV.pm 2023/03/19 23:37:46 1.7 @@ -411,7 +411,7 @@ $self->on_key ($key); } } else { - $self->on_event ($reply->{event}, $reply); + $self->on_event (delete $reply->{event}, $reply); } } elsif (exists $reply->{request_id}) { my $cv = delete $self->{cmd_cv}{$reply->{request_id}}; @@ -506,10 +506,11 @@ implementation will call the C code reference specified in the constructor, or do nothing if none was given. -The first/implicit argument is the C<$mpv> object, the second is the event -name (same as C<< $data->{event} >>, purely for convenience), and the -third argument is the full event object as sent by F. See L in its documentation. +The first/implicit argument is the C<$mpv> object, the second is the +event name (same as C<< $data->{event} >>, purely for convenience), and +the third argument is the event object as sent by F (sans C +key). See L +in its documentation. For subclassing, see I, below.