__UNDEFINED__

__UNDEFINED__ dTHR dNOOP

__UNDEFINED__ dTHX dNOOP __UNDEFINED__ dTHXa(x) dNOOP

__UNDEFINED__ pTHX void __UNDEFINED__ pTHX_ __UNDEFINED__ aTHX __UNDEFINED__ aTHX_

__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/);