—package
Acme::Current;
use
strict;
$VERSION
=
sprintf
"%04d%02d%02d"
,
$YEAR
= 2003,
$MONTH
= 8,
$DAY
= 5;
1;
__END__
=head1 NAME
Acme::Current - Determine current year, month, day (GMT)
=head1 SYNOPSIS
use Acme::Current;
printf "It's now %04d/%02d/%02d.\n",
$Acme::Current::YEAR,
$Acme::Current::MONTH,
$Acme::Current::DAY;
if ($Acme::Current::MONTH == 12 and $Acme::Current::DAY == 25) {
print "Merry Christmas!\n";
}
=head1 DESCRIPTION
C<Acme::Current> gives you all the power of those myriad of date/time
modules without all that complexity, as long as all you want is the
current date (GMT-based), and you keep the module up to date.
=head1 EXPORT
Nothing. You need to use C<$Acme::Current::YEAR> to get the year,
and so on.
=head1 BUGS
None known.
=head1 SEE ALSO
C<Date::Manip>, and a hundred other date and time modules.
See L<http://perltraining.stonehenge.com> for all your Perl training
needs.
=head1 AUTHOR
Randal L. Schwartz, E<lt>merlyn@stonehenge.comE<gt>,
Based on an idea from a conversation with Joshua Hoblitt.
=head1 COPYRIGHT AND LICENSE
Copyright 2003 by Randal L. Schwartz, Stonehenge Consulting Services, Inc.
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
=cut