init III

Perl OTRS/Kernel/cpan-lib/Date/Leapyear.pm

@@ -0,0 +1,51 @@
+# $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
+