The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

__UNDEFINED__ aTHXR aTHXR_ dTHXR

__UNDEFINED__ dTHR dNOOP

__UNDEFINED__ dTHX dNOOP /* Hint: dTHX

  For pre-5.6.0 thread compatibility, instead use dTHXR, available only through
  ppport.h */

__UNDEFINED__ dTHXa(x) dNOOP

__UNDEFINED__ pTHX void __UNDEFINED__ pTHX_ __UNDEFINED__ aTHX /* Hint: aTHX

  For pre-5.6.0 thread compatibility, instead use aTHXR, available only through
  ppport.h */

__UNDEFINED__ aTHX_ /* Hint: aTHX_

  For pre-5.6.0 thread compatibility, instead use aTHXR_, available only
  through ppport.h */

#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) SV *error PPCODE: croak_sv(error);

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

4 POD Errors

The following errors were encountered while parsing the POD:

Around line 12:

Unknown directive: =provides

Around line 19:

Unknown directive: =implementation

Around line 62:

Unknown directive: =xsubs

Around line 78:

Unknown directive: =tests