line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Amazon::API::Constants; |
2
|
|
|
|
|
|
|
|
3
|
4
|
|
|
4
|
|
29
|
use strict; |
|
4
|
|
|
|
|
9
|
|
|
4
|
|
|
|
|
159
|
|
4
|
4
|
|
|
4
|
|
21
|
use warnings; |
|
4
|
|
|
|
|
9
|
|
|
4
|
|
|
|
|
168
|
|
5
|
|
|
|
|
|
|
|
6
|
4
|
|
|
4
|
|
23
|
use parent qw{ Exporter }; |
|
4
|
|
|
|
|
8
|
|
|
4
|
|
|
|
|
20
|
|
7
|
|
|
|
|
|
|
|
8
|
4
|
|
|
4
|
|
2197
|
use ReadonlyX; |
|
4
|
|
|
|
|
5930
|
|
|
4
|
|
|
|
|
1621
|
|
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
our @EXPORT_OK = (); |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
our %EXPORT_TAGS = ( |
13
|
|
|
|
|
|
|
'booleans' => [ |
14
|
|
|
|
|
|
|
qw{ |
15
|
|
|
|
|
|
|
$TRUE |
16
|
|
|
|
|
|
|
$FALSE |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
], |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
'chars' => [ |
21
|
|
|
|
|
|
|
qw{ |
22
|
|
|
|
|
|
|
$AMPERSAND |
23
|
|
|
|
|
|
|
$COLON |
24
|
|
|
|
|
|
|
$COMMA |
25
|
|
|
|
|
|
|
$DOUBLE_COLON |
26
|
|
|
|
|
|
|
$DASH |
27
|
|
|
|
|
|
|
$DOT |
28
|
|
|
|
|
|
|
$EMPTY |
29
|
|
|
|
|
|
|
$EQUALS_SIGN |
30
|
|
|
|
|
|
|
$OCTOTHORP |
31
|
|
|
|
|
|
|
$PERIOD |
32
|
|
|
|
|
|
|
$QUESTION_MARK |
33
|
|
|
|
|
|
|
$SLASH |
34
|
|
|
|
|
|
|
$SPACE |
35
|
|
|
|
|
|
|
$TEMPLATE_DELIMITER |
36
|
|
|
|
|
|
|
$UNDERSCORE |
37
|
|
|
|
|
|
|
} |
38
|
|
|
|
|
|
|
], |
39
|
|
|
|
|
|
|
'strings' => [ |
40
|
|
|
|
|
|
|
qw{ |
41
|
|
|
|
|
|
|
$PADDING |
42
|
|
|
|
|
|
|
} |
43
|
|
|
|
|
|
|
], |
44
|
|
|
|
|
|
|
); |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
our $VERSION = '2.0.11'; |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
# chars |
49
|
|
|
|
|
|
|
Readonly::Scalar our $AMPERSAND => q{&}; |
50
|
|
|
|
|
|
|
Readonly::Scalar our $COLON => q{:}; |
51
|
|
|
|
|
|
|
Readonly::Scalar our $COMMA => q{,}; |
52
|
|
|
|
|
|
|
Readonly::Scalar our $DOUBLE_COLON => q{::}; |
53
|
|
|
|
|
|
|
Readonly::Scalar our $DASH => q{-}; |
54
|
|
|
|
|
|
|
Readonly::Scalar our $DOT => q{.}; |
55
|
|
|
|
|
|
|
Readonly::Scalar our $EMPTY => q{}; |
56
|
|
|
|
|
|
|
Readonly::Scalar our $EQUALS_SIGN => q{=}; |
57
|
|
|
|
|
|
|
Readonly::Scalar our $OCTOTHORP => q{#}; |
58
|
|
|
|
|
|
|
Readonly::Scalar our $PERIOD => q{.}; |
59
|
|
|
|
|
|
|
Readonly::Scalar our $QUESTION_MARK => q{?}; |
60
|
|
|
|
|
|
|
Readonly::Scalar our $SLASH => q{/}; |
61
|
|
|
|
|
|
|
Readonly::Scalar our $SPACE => q{ }; |
62
|
|
|
|
|
|
|
Readonly::Scalar our $TEMPLATE_DELIMITER => q{@}; |
63
|
|
|
|
|
|
|
Readonly::Scalar our $UNDERSCORE => q{_}; |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
# strings |
66
|
|
|
|
|
|
|
Readonly::Scalar our $PADDING => $SPACE x 4; |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
# booleans |
69
|
|
|
|
|
|
|
Readonly::Scalar our $TRUE => 1; |
70
|
|
|
|
|
|
|
Readonly::Scalar our $FALSE => 0; |
71
|
|
|
|
|
|
|
|
72
|
|
|
|
|
|
|
foreach my $k ( keys %EXPORT_TAGS ) { |
73
|
|
|
|
|
|
|
push @EXPORT_OK, @{ $EXPORT_TAGS{$k} }; |
74
|
|
|
|
|
|
|
} |
75
|
|
|
|
|
|
|
|
76
|
|
|
|
|
|
|
$EXPORT_TAGS{'all'} = [@EXPORT_OK]; |
77
|
|
|
|
|
|
|
|
78
|
|
|
|
|
|
|
1; |
79
|
|
|
|
|
|
|
|
80
|
|
|
|
|
|
|
__END__ |