This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
8631063e542aa14553a2561b10b1355aad07afd7
[perl5.git] / dist / ExtUtils-ParseXS / lib / ExtUtils / ParseXS / Constants.pm
1 package ExtUtils::ParseXS::Constants;
2 use strict;
3 use warnings;
4 use Symbol;
5
6 =head1 NAME
7
8 ExtUtils::ParseXS::Constants - Initialization values for some globals
9
10 =head1 SYNOPSIS
11
12   use ExtUtils::ParseXS::Constants ();
13
14   $PrototypeRegexp = $ExtUtils::ParseXS::Constants::PrototypeRegexp;
15
16 =head1 DESCRIPTION
17
18 Initialization of certain non-subroutine variables in ExtUtils::ParseXS and some of its
19 supporting packages has been moved into this package so that those values can
20 be defined exactly once and then re-used in any package.
21
22 Nothing is exported.  Use fully qualified variable names.
23
24 =cut
25
26 # FIXME: THESE ARE NOT CONSTANTS!
27 our @InitFileCode;
28 our $FH              = Symbol::gensym();
29 our $Overload        = 0;
30 our $errors          = 0;
31
32 our $Fallback        = '&PL_sv_undef'; # FIXME Check: Is this a constant?
33
34 our $PrototypeRegexp = "[" . quotemeta('\$%&*@;[]_') . "]";
35 our @XSKeywords      = qw( 
36   REQUIRE BOOT CASE PREINIT INPUT INIT CODE PPCODE
37   OUTPUT CLEANUP ALIAS ATTRS PROTOTYPES PROTOTYPE
38   VERSIONCHECK INCLUDE INCLUDE_COMMAND SCOPE INTERFACE
39   INTERFACE_MACRO C_ARGS POSTCALL OVERLOAD FALLBACK
40 );
41
42 1;