| … | |
… | |
| 221 | use Scalar::Util (); |
221 | use Scalar::Util (); |
| 222 | |
222 | |
| 223 | use AnyEvent (); |
223 | use AnyEvent (); |
| 224 | use AnyEvent::Util (); |
224 | use AnyEvent::Util (); |
| 225 | |
225 | |
| 226 | our $VERSION = '1.0'; |
226 | our $VERSION = '1.01'; |
| 227 | |
227 | |
| 228 | sub OBSID() { 0x10000000000000 } # 2**52 |
228 | sub OBSID() { 0x10000000000000 } # 2**52 |
| 229 | |
229 | |
| 230 | our $JSON = eval { require JSON::XS; JSON::XS:: } |
230 | our $JSON = eval { require JSON::XS; JSON::XS:: } |
| 231 | || do { require JSON::PP; JSON::PP:: }; |
231 | || do { require JSON::PP; JSON::PP:: }; |
| … | |
… | |
| 567 | For subclassing, see I<SUBCLASSING>, below. |
567 | For subclassing, see I<SUBCLASSING>, below. |
| 568 | |
568 | |
| 569 | =cut |
569 | =cut |
| 570 | |
570 | |
| 571 | sub on_event { |
571 | sub on_event { |
| 572 | my ($self, $key) = @_; |
572 | my ($self, $event, $data) = @_; |
| 573 | |
573 | |
| 574 | $self->{on_event}($self, $key) if $self->{on_event}; |
574 | $self->{on_event}($self, $event, $data) if $self->{on_event}; |
| 575 | } |
575 | } |
| 576 | |
576 | |
| 577 | =item $mpv->on_key ($string) |
577 | =item $mpv->on_key ($string) |
| 578 | |
578 | |
| 579 | Invoked when a key declared by C<< ->bind_key >> is pressed. The default |
579 | Invoked when a key declared by C<< ->bind_key >> is pressed. The default |
