void set_ctx()
{
    dTHX;
    mine = Perl_get_context;
}
(...)
MODULE = MPV::Simple		PACKAGE = MPV::Simple
(...)
void
_set_context(ctx)
    MPV::Simple ctx
    CODE:
    set_ctx();