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

package Time::List::Constant;

use strict;
use warnings;

use Data::Util qw/install_subroutine/;

sub import {
    my ($self, @kinds) = @_;
    my $caller = (caller)[0];
    install_subroutine( $caller,
        DAY => sub{1},
        MONTH => sub{2},
        WEEK => sub{3},
        HOUR => sub{4},
        ARRAY => sub{1},
        HASH => sub{2},
        ROWS => sub{3},
    );
}

1;

__END__