Date::Leapyear (3pm)

  use Date::Leapyear;
  if ( isleap(1945) ) {
    ...
  }

Date::Leapyear exports one function - isleap - which returns 1 or 0 if a year is leap, or not, respectively.

$true = isleap( 2004 );

Returns 1 in a leap year, 0 otherwise.

Rich Bowen ([email protected])