File Coverage

cpan/Devel-PPPort/module2.c
Criterion Covered Total %
statement 8 12 66.7
branch n/a
condition n/a
subroutine n/a
total 8 12 66.7


line stmt bran cond sub time code
1           /*******************************************************************************
2           *
3           * Perl/Pollution/Portability
4           *
5           ********************************************************************************
6           *
7           * Version 3.x, Copyright (C) 2004-2013, Marcus Holland-Moritz.
8           * Version 2.x, Copyright (C) 2001, Paul Marquess.
9           * Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
10           *
11           * This program is free software; you can redistribute it and/or
12           * modify it under the same terms as Perl itself.
13           *
14           *******************************************************************************/
15            
16           #include "EXTERN.h"
17           #include "perl.h"
18           #include "XSUB.h"
19            
20           #ifndef PATCHLEVEL
21           #include "patchlevel.h"
22           #endif
23            
24           #define NEED_newCONSTSUB_GLOBAL
25           #define NEED_PL_signals_GLOBAL
26           #define NEED_PL_parser
27           #define DPPP_PL_parser_NO_DUMMY
28           #include "ppport.h"
29            
30 2         void call_newCONSTSUB_2(void)
31           {
32 2         newCONSTSUB(gv_stashpv("Devel::PPPort", FALSE), "test_value_2", newSViv(2));
33 2         }
34            
35 2         U32 get_PL_signals_2(void)
36           {
37 2         return PL_signals;
38           }
39            
40 4         int no_dummy_parser_vars(int check)
41           {
42 4         if (check == 0 || PL_parser)
43           {
44           line_t volatile my_copline;
45           line_t volatile *my_p_copline;
46 2         my_copline = PL_copline;
47 0         my_p_copline = &PL_copline;
48 0         PL_copline = my_copline;
49 0         PL_copline = *my_p_copline;
50 0         return 1;
51           }
52            
53           return 0;
54           }