The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

BIGFOOT / CPAN-Maker-1.5.41 / lib / CPAN / Maker / Constants.pm 

            

              
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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
—
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103

              
package CPAN::Maker::Constants;
use strict;
use warnings;
use parent qw{ Exporter };
our $VERSION = '1.5.41';  ## no critic (RequireInterpolation)
our @EXPORT_OK = ();
use ReadonlyX;
# booleans
Readonly our $TRUE       => 1;
Readonly our $FALSE      => 0;
Readonly our $SUCCESS    => 1;
Readonly our $FAILURE    => 0;
Readonly our $SH_FAILURE => 1;
Readonly our $SH_SUCCESS => 0;
# chars
Readonly our $DASH         => q{-};
Readonly our $DOT          => q{.};
Readonly our $DOUBLE_COLON => q{::};
Readonly our $EMPTY        => q{};
Readonly our $FAT_ARROW    => q{=>};
Readonly our $INDENT       => 4;
Readonly our $NL           => qq{\n};
Readonly our $SLASH        => q{/};
Readonly our $SPACE        => q{ };
# defaults
Readonly our $DEFAULT_PERL_VERSION => '5.010';
Readonly our $NO_VERSION           => 0;
our %EXPORT_TAGS = (
  'defaults' => [
    qw{
      $DEFAULT_PERL_VERSION
      $NO_VERSION
    }
  ],
  'booleans' => [
    qw{
      $TRUE
      $FALSE
      $SUCCESS
      $FAILURE
      $SH_FAILURE
      $SH_SUCCESS
    }
  ],
  'chars' => [
    qw{
      $DASH
      $DOUBLE_COLON
      $DOT
      $EMPTY
      $FAT_ARROW
      $INDENT
      $NL
      $SLASH
      $SPACE
    }
  ],
);
foreach my $k ( keys %EXPORT_TAGS ) {
  push @EXPORT_OK, @{ $EXPORT_TAGS{$k} };
} ## end foreach my $k ( keys %EXPORT_TAGS)
$EXPORT_TAGS{'all'} = [@EXPORT_OK];
1;
## no critic (RequirePodSections)
__END__
=pod
=head1 NAME
CPAN::Maker::Constants - constants to support CPAN::Maker
=head1 SYNOPSIS
 use CPAN::Maker::Constants qw(all);
=head1 DESCRIPTION
Import tags:
 chars
 booleans
 defaults
=head1 AUTHOR
Rob Lauer - <rlauer6@comcast.net>
=cut