/usr/share/perl5/Date/Leapyear.pm is in libdate-leapyear-perl 1.72-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 | # $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
|