52 lines
954 B
Perl
52 lines
954 B
Perl
# $Header: /cvsroot/date-leapyear/lib/Date/Leapyear.pm,v 1.71 2002/08/30 00:00:25 rbowen Exp $
|
|
package Date::Leapyear;
|
|
use strict;
|
|
|
|
use Exporter;
|
|
use vars qw(@ISA @EXPORT $VERSION);
|
|
@ISA = qw(Exporter);
|
|
|
|
@EXPORT = qw( isleap );
|
|
$VERSION = ( qw'$Revision: 1.72 $' )[1];
|
|
|
|
=head1 NAME
|
|
|
|
Date::Leapyear - Is a particular year a leap year?
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use Date::Leapyear;
|
|
if ( isleap(1945) ) {
|
|
...
|
|
}
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Date::Leapyear exports one function - isleap - which returns 1 or 0 if
|
|
a year is leap, or not, respectively.
|
|
|
|
=head1 isleap
|
|
|
|
$true = isleap( 2004 );
|
|
|
|
Returns 1 in a leap year, 0 otherwise.
|
|
|
|
=cut
|
|
|
|
sub isleap {
|
|
my ($year) = @_;
|
|
return 1 if (( $year % 400 ) == 0 ); # 400's are leap
|
|
return 0 if (( $year % 100 ) == 0 ); # Other centuries are not
|
|
return 1 if (( $year % 4 ) == 0 ); # All other 4's are leap
|
|
return 0; # Everything else is not
|
|
}
|
|
|
|
1;
|
|
|
|
=head1 AUTHOR
|
|
|
|
Rich Bowen (rbowen@rcbowen.com)
|
|
|
|
=cut
|
|
|