/usr/local/CPAN/Date-Handler/Date/Handler/Constants.pm

• package Date::Handler::Constants
• EOF

#!/usr/bin/perl
package Date::Handler::Constants;


use strict;
use vars qw(@ISA $VERSION @EXPORT $DAYS_IN_MONTH $SUPPORTED_TIME_ZONES);

use Exporter;
@ISA = qw(Exporter);

$VERSION = '1.0';

@EXPORT = qw($DAYS_IN_MONTH $SUPPORTED_TIME_ZONES);

$DAYS_IN_MONTH = {
			0 => 31, #Jan
			1 => 28, #Feb
			2 => 31, #Mar
			3 => 30, #Apr
			4 => 31, #May
			5 => 30, #Jun
			6 => 31, #Jul
			7 => 31, #Aug
			8 => 30, #Sep
			9 => 31, #Oct
			10 => 30, #Nov
			11 => 31, #Dec
		};	
			
$SUPPORTED_TIME_ZONES = {};

666; #The number of the beast.