__UNDEFINED__ aTHXR aTHXR_ dTHXR

__UNDEFINED__ dTHR dNOOP

__UNDEFINED__ dTHX dNOOP __UNDEFINED__ dTHXa(x) dNOOP

__UNDEFINED__ pTHX void __UNDEFINED__ pTHX_ __UNDEFINED__ aTHX __UNDEFINED__ aTHX_

#if { VERSION < 5.6.0 } # ifdef USE_THREADS # define aTHXR thr # define aTHXR_ thr, # else # define aTHXR # define aTHXR_ # endif # define dTHXR dTHR #else # define aTHXR aTHX # define aTHXR_ aTHX_ # define dTHXR dTHX #endif

__UNDEFINED__ dTHXoa(x) dTHXa(x)

IV no_THX_arg(sv) SV *sv CODE: RETVAL = 1 + sv_2iv(sv); OUTPUT: RETVAL

void with_THX_arg(error) char *error PPCODE: Perl_croak(aTHX_ "%s", error);

ok(&Devel::PPPort::no_THX_arg("42"), 43); eval { &Devel::PPPort::with_THX_arg("yes\n"); }; ok($@ =~ /^yes/);