—package
Time::List::Constant;
use
strict;
use
warnings;
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