| ################################################################################ |
| ## |
| ## $Revision: 12 $ |
| ## $Author: mhx $ |
| ## $Date: 2010/03/07 13:15:47 +0100 $ |
| ## |
| ################################################################################ |
| ## |
| ## Version 3.x, Copyright (C) 2004-2010, Marcus Holland-Moritz. |
| ## Version 2.x, Copyright (C) 2001, Paul Marquess. |
| ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. |
| ## |
| ## This program is free software; you can redistribute it and/or |
| ## modify it under the same terms as Perl itself. |
| ## |
| ################################################################################ |
| |
| =provides |
| |
| __UNDEFINED__ |
| aTHXR |
| aTHXR_ |
| dTHXR |
| |
| =implementation |
| |
| __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) |
| |
| =xsubs |
| |
| 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); |
| |
| =tests plan => 2 |
| |
| ok(&Devel::PPPort::no_THX_arg("42"), 43); |
| eval { &Devel::PPPort::with_THX_arg("yes\n"); }; |
| ok($@ =~ /^yes/); |
| |