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         7  
  7         209  
4 7     7   26 use warnings;
  7         9  
  7         169  
5              
6 7     7   3408 use Data::Util qw/install_subroutine/;
  7         5130  
  7         1116  
7              
8             sub import {
9 25     25   204 my ($self, @kinds) = @_;
10 25         79 my $caller = (caller)[0];
11 46     46   8083 install_subroutine( $caller,
        46      
        46      
        46      
12             DAY => sub{1},
13 27     27   2679 MONTH => sub{2},
        27      
        27      
        54      
14 21     21   56 WEEK => sub{3},
        21      
        21      
        33      
15 39     39   8626 HOUR => sub{4},
        39      
        39      
        69      
16 49     49   284 ARRAY => sub{1},
        49      
        49      
        89      
17 12     12   47 HASH => sub{2},
        12      
        12      
        24      
18 6     6   23 ROWS => sub{3},
        6      
        6      
        12      
19 25         26471 );
20             }
21              
22             1;
23              
24             __END__