XS-Install
view release on metacpan or search on metacpan
lib/XS/Install/FrozenShit/ParseXS.pm view on Meta::CPAN
# current foo.c line from the foo.xs part where the BOOT: code was.
if (@{ $self->{bootcode_later} }) {
print "\n /* Initialisation Section */\n\n";
print @{$self->{bootcode_later}};
print 'XS::Install::FrozenShit::ParseXS::CountLines'->end_marker, "\n"
if $self->{config_WantLineNumbers};
print "\n /* End of Initialisation Section */\n\n";
}
# Emit code to call any UNITCHECK blocks and return true. Since 5.22,
# this is been put into a separate function.
print Q(<<'EOF');
|#if PERL_VERSION_LE(5, 21, 5)
|# if PERL_VERSION_GE(5, 9, 0)
| if (PL_unitcheckav)
| call_list(PL_scopestack_ix, PL_unitcheckav);
|# endif
| XSRETURN_YES;
|#else
| Perl_xs_boot_epilog(aTHX_ ax);
KEY_tied|5.003007||Viu
KEY_time|5.003007||Viu
KEY_times|5.003007||Viu
KEY_tr|5.003007||Viu
KEY_truncate|5.003007||Viu
KEY_try|5.033007||Viu
KEY_uc|5.003007||Viu
KEY_ucfirst|5.003007||Viu
KEY_umask|5.003007||Viu
KEY_undef|5.003007||Viu
KEY_UNITCHECK|5.009005||Viu
KEY_unless|5.003007||Viu
KEY_unlink|5.003007||Viu
KEY_unpack|5.003007||Viu
KEY_unshift|5.003007||Viu
KEY_untie|5.003007||Viu
KEY_until|5.003007||Viu
KEY_use|5.003007||Viu
KEY_utime|5.003007||Viu
KEY_values|5.003007||Viu
KEY_vec|5.003007||Viu
( run in 2.741 seconds using v1.01-cache-2.11-cpan-0bb4e1dffa6 )