blob: 9302db63fa40cb8582a6bd07c1a448c764556489 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
################################################################################
##
## $Revision: 5 $
## $Author: mhx $
## $Date: 2006/01/14 18:08:00 +0100 $
##
################################################################################
##
## Version 3.x, Copyright (C) 2004-2006, 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__
=implementation
__UNDEFINED__ dTHR dNOOP
__UNDEFINED__ dTHX dNOOP
__UNDEFINED__ dTHXa(x) dNOOP
__UNDEFINED__ pTHX void
__UNDEFINED__ pTHX_
__UNDEFINED__ aTHX
__UNDEFINED__ aTHX_
__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/);
|
