use strict;
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__
=head1 NAME
Time::List::Constant
=head1 DEPENDENCIES
Perl 5.8.1 or later.
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
=head1 SEE ALSO
L<perl>
=head1 AUTHOR
<<Shinichiro Sato>> E<lt><<s2otsa59@gmail.com>>E<gt>
=head1 LICENSE AND COPYRIGHT
Copyright (c) 2013, <<Shinichiro Sato>>. All rights reserved.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut