File Coverage

blib/lib/Amazon/API/Constants.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Amazon::API::Constants;
2              
3 4     4   30 use strict;
  4         8  
  4         152  
4 4     4   22 use warnings;
  4         7  
  4         141  
5              
6 4     4   21 use parent qw{ Exporter };
  4         16  
  4         28  
7              
8 4     4   2088 use ReadonlyX;
  4         5857  
  4         1671  
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.8';
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__