Help for this page

Select Code to Download


  1. or download this
    sub set_wakeup_callback {
    my ($self, $callback, $userdata) = @_;
...
    #use Devel::Peek;
    #Dump $callback;
}
  2. or download this
    void
set_my_callback(ctx, fn)
...
    callp_ptr = callp;
    mpv_set_wakeup_callback(ctx,callp_ptr,MY_CXT.callback);
    }
  3. or download this
    void callp( SV* string)
{
...
    PUTBACK;FREETMPS;LEAVE;
    
}
  4. or download this
    use MPV::Simple;

...
exit 0;

sub func {print "callback called \n"}