Commit | Line | Data |
adfe19db |
1 | ################################################################################ |
2 | ## |
0d0f8426 |
3 | ## $Revision: 5 $ |
adfe19db |
4 | ## $Author: mhx $ |
0d0f8426 |
5 | ## $Date: 2006/01/14 18:08:00 +0100 $ |
adfe19db |
6 | ## |
7 | ################################################################################ |
8 | ## |
0d0f8426 |
9 | ## Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz. |
adfe19db |
10 | ## Version 2.x, Copyright (C) 2001, Paul Marquess. |
11 | ## Version 1.x, Copyright (C) 1999, Kenneth Albanowski. |
12 | ## |
13 | ## This program is free software; you can redistribute it and/or |
14 | ## modify it under the same terms as Perl itself. |
15 | ## |
16 | ################################################################################ |
17 | |
18 | =provides |
19 | |
20 | __UNDEFINED__ |
21 | |
22 | =implementation |
23 | |
24 | __UNDEFINED__ dTHR dNOOP |
25 | |
26 | __UNDEFINED__ dTHX dNOOP |
27 | __UNDEFINED__ dTHXa(x) dNOOP |
28 | |
29 | __UNDEFINED__ pTHX void |
30 | __UNDEFINED__ pTHX_ |
31 | __UNDEFINED__ aTHX |
32 | __UNDEFINED__ aTHX_ |
33 | |
34 | __UNDEFINED__ dTHXoa(x) dTHXa(x) |
35 | |
36 | =xsubs |
37 | |
38 | IV |
39 | no_THX_arg(sv) |
40 | SV *sv |
41 | CODE: |
42 | RETVAL = 1 + sv_2iv(sv); |
43 | OUTPUT: |
44 | RETVAL |
45 | |
46 | void |
47 | with_THX_arg(error) |
48 | char *error |
49 | PPCODE: |
50 | Perl_croak(aTHX_ "%s", error); |
51 | |
52 | =tests plan => 2 |
53 | |
54 | ok(&Devel::PPPort::no_THX_arg("42"), 43); |
55 | eval { &Devel::PPPort::with_THX_arg("yes\n"); }; |
56 | ok($@ =~ /^yes/); |
57 | |