| … | |
… | |
| 697 | or mix both approaches as you see fit. |
697 | or mix both approaches as you see fit. |
| 698 | |
698 | |
| 699 | =cut |
699 | =cut |
| 700 | |
700 | |
| 701 | sub AnyEvent::MPV::Unevent::DESTROY { |
701 | sub AnyEvent::MPV::Unevent::DESTROY { |
| 702 | my ($evtcb, $evtid) = @{$_[0]}; |
702 | my ($evtcb, $event, $evtid) = @{$_[0]}; |
| 703 | delete $evtcb->{$evtid}; |
703 | delete $evtcb->{$event}{$evtid}; |
| 704 | } |
704 | } |
| 705 | |
705 | |
| 706 | sub register_event { |
706 | sub register_event { |
| 707 | my ($self, $event, $cb) = @_; |
707 | my ($self, $event, $cb) = @_; |
| 708 | |
708 | |
| … | |
… | |
| 710 | |
710 | |
| 711 | my $evtid = ++$self->{evtid}; |
711 | my $evtid = ++$self->{evtid}; |
| 712 | $self->{evtcb}{$event}{$evtid} = $cb; |
712 | $self->{evtcb}{$event}{$evtid} = $cb; |
| 713 | |
713 | |
| 714 | defined wantarray |
714 | defined wantarray |
| 715 | and bless [$self->{evtcb}, $evtid], AnyEvent::MPV::Unevent:: |
715 | and bless [$self->{evtcb}, $event, $evtid], AnyEvent::MPV::Unevent:: |
| 716 | } |
716 | } |
| 717 | |
717 | |
| 718 | =item [$guard] = $mpv->observe_property ($name => $coderef->($mpv, $name, $value)) |
718 | =item [$guard] = $mpv->observe_property ($name => $coderef->($mpv, $name, $value)) |
| 719 | |
719 | |
| 720 | =item [$guard] = $mpv->observe_property_string ($name => $coderef->($mpv, $name, $value)) |
720 | =item [$guard] = $mpv->observe_property_string ($name => $coderef->($mpv, $name, $value)) |
