File Coverage

blib/lib/ExtUtils/ParseXS/Constants.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package ExtUtils::ParseXS::Constants;
2 27     27   186 use strict;
  27         49  
  27         741  
3 27     27   124 use warnings;
  27         48  
  27         630  
4 27     27   3563 use Symbol;
  27         6483  
  27         4023  
5              
6             our $VERSION = '3.44';
7              
8             =head1 NAME
9              
10             ExtUtils::ParseXS::Constants - Initialization values for some globals
11              
12             =head1 SYNOPSIS
13              
14             use ExtUtils::ParseXS::Constants ();
15              
16             $PrototypeRegexp = $ExtUtils::ParseXS::Constants::PrototypeRegexp;
17              
18             =head1 DESCRIPTION
19              
20             Initialization of certain non-subroutine variables in ExtUtils::ParseXS and some of its
21             supporting packages has been moved into this package so that those values can
22             be defined exactly once and then re-used in any package.
23              
24             Nothing is exported. Use fully qualified variable names.
25              
26             =cut
27              
28             # FIXME: THESE ARE NOT CONSTANTS!
29             our @InitFileCode;
30              
31             # Note that to reduce maintenance, $PrototypeRegexp is used
32             # by ExtUtils::Typemaps, too!
33             our $PrototypeRegexp = "[" . quotemeta('\$%&*@;[]_') . "]";
34             our @XSKeywords = qw(
35             REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
36             OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
37             VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
38             INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
39             EXPORT_XSUB_SYMBOLS
40             );
41              
42             our $XSKeywordsAlternation = join('|', @XSKeywords);
43              
44             1;