package Acme::Current;
use strict;

use vars qw($VERSION);

use vars qw($YEAR $MONTH $DAY);

my @timearray = gmtime();

$VERSION = sprintf "%04d%02d%02d", $YEAR = ($timearray[5]+1900), $MONTH = ($timearray[4]+1), $DAY = ($timearray[3]);

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://training.perl.org> for all your Perl training
needs.

=head1 AUTHOR

Jesse Vincent <jesse@cpan.org> based on an inane acme module by

Randal L. Schwartz, E<lt>merlyn@stonehenge.comE<gt>,
L<http://www.stonehenge.com/merlyn/>.

Based on an idea from a conversation with Joshua Hoblitt.

=head1 COPYRIGHT AND LICENSE

Portions Copyright 2003 by Jesse Vincent

Portions 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