use vars
qw($VERSION @ISA);
@ISA = qw(Date::Format::Generic);
my $type = shift || $self;
$type =~ s/^(\w+)$/Date::Language::$1/;
unless $type =~ /^[\w:]+$/;
# Stop AUTOLOAD being called ;-)
if($AUTOLOAD =~ /::strptime\Z/o)
my $type = ref($self) || $self;
*{"${type}::strptime"} = Date::Parse::gen_parser(
goto &{"${type}::strptime"};
croak "Undefined method &$AUTOLOAD called";
my @t = $me->strptime(@_);
my($ss,$mm,$hh,$day,$month,$year,$zone) = @t;
my @lt = localtime(time);
$year = ($month > $lt[4]) ? ($lt[5] - 1) : $lt[5]
return defined $zone ? timegm($ss,$mm,$hh,$day,$month,$year) - $zone
: timelocal($ss,$mm,$hh,$day,$month,$year);