File Coverage

blib/arch/XS/Framework.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch			n/a
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	33	33	100.0

package XS::Framework;
use 5.018;
use Config;
use next::XS;
use XS::libpanda;
use XS::ErrorCode();
use XS::STL::ErrorCode();
use XS::STL::ErrorCategory();

our $VERSION = '1.3.1';

# threads::shared doesn't respect the fact that PL_destroyhook might be in use by other modules and doesn't proxy call to next hook
# so that we must hook after threads::shared
if ($Config{useithreads}) {
    require threads;
    require threads::shared;
    no warnings 'redefine';
    my $orig_threads_create = \&threads::create;
    *threads::create = sub {
        __at_thread_create();
        goto &$orig_threads_create;
    };
}

XS::Loader::load();

END {
    __at_perl_destroy();
}

1;