File Coverage

blib/lib/Date/Transform/Constants.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Date::Transform::Constants;
2             our $VERSION = '0.09';
3            
4 1     1   19 use 5.006;
  1         3  
  1         43  
5 1     1   6 use strict;
  1         1  
  1         86  
6            
7             require Exporter;
8             our @ISA = qw(Exporter);
9            
10             # 2. General Method
11             my @CONSTANTS = qw(
12             MYSQL_DATETIME
13             MYSQL_DATE
14             MYSQL_TIME
15             MYSQL_TIMESTAMP
16             );
17            
18             ### DECLARE DATATYPE CONSTANTS ###
19 1     1   6 use constant MYSQL_DATETIME => '%Y-%m-%d %T';
  1         2  
  1         93  
20 1     1   7 use constant MYSQL_DATE => '%Y-%m-%d';
  1         3  
  1         46  
21 1     1   6 use constant MYSQL_TIME => '%T';
  1         2  
  1         55  
22 1     1   5 use constant MYSQL_TIMESTAMP => '%Y-%m-%d %T';
  1         2  
  1         147  
23            
24             # Items to export into callers namespace by default. Note: do not export
25             # names by default without a very good reason. Use EXPORT_OK instead.
26             # Do not simply export all your public functions/methods/constants.
27            
28             # This allows declaration
29             # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK
30             # will save memory.
31             our %EXPORT_TAGS = ( 'all' => [qw()] );
32             our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );
33             our @EXPORT = (@CONSTANTS);
34            
35             1;
36            
37             __END__