[ViewVC] Diff of: cvs/AnyEvent-MPV/MPV.pm

Comparing AnyEvent-MPV/MPV.pm (file contents):
Revision 1.6 by root, Sun Mar 19 23:24:20 2023 UTC vs.
Revision 1.7 by root, Sun Mar 19 23:37:46 2023 UTC

                         if ($reply->{args}[1] eq "key") {
                            (my $key = $reply->{args}[2]) =~ s/\\x(..)/chr hex $1/ge;
                            $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}};
                      unless ($cv) {
 This method is called when F<mpv> sends an asynchronous event. The default
 implementation will call the C<on_event> 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
+The first/implicit argument is the C<$mpv> object, the second is the
-name (same as C<< $data->{event} >>, purely for convenience), and the
+event name (same as C<< $data->{event} >>, purely for convenience), and
-third argument is the full event object as sent by F<mpv>. See L<List of
+the third argument is the event object as sent by F<mpv> (sans C<event>
-events|https://mpv.io/manual/stable/#list-of-events> in its documentation.
+key). See L<List of events|https://mpv.io/manual/stable/#list-of-events>
+in its documentation.
 For subclassing, see I<SUBCLASSING>, below.
 =cut

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines