File Coverage

blib/lib/Time/List/Constant.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 32 32 100.0
pod n/a
total 51 51 100.0


line stmt bran cond sub pod time code
1             package Time::List::Constant;
2              
3 7     35   31 use strict;
  7         9  
  7         198  
4 7     7   30 use warnings;
  7         13  
  7         170  
5              
6 7     7   5513 use Data::Util qw/install_subroutine/;
  7         6277  
  7         1383  
7              
8             sub import {
9 25     25   7420 my ($self, @kinds) = @_;
10 25         89 my $caller = (caller)[0];
11 46     46   9395 install_subroutine( $caller,
        46      
        46      
        46      
12             DAY => sub{1},
13 27     27   4035 MONTH => sub{2},
        27      
        27      
        54      
14 21     21   62 WEEK => sub{3},
        21      
        21      
        33      
15 39     39   11244 HOUR => sub{4},
        39      
        39      
        69      
16 49     49   310 ARRAY => sub{1},
        49      
        49      
        89      
17 12     12   52 HASH => sub{2},
        12      
        12      
        24      
18 6     6   31 ROWS => sub{3},
        6      
        6      
        12      
19 25         29572 );
20             }
21              
22             1;
23              
24             __END__