--- Human.pm.orig Sun Feb 11 22:58:56 2007 +++ Human.pm Sun Feb 11 23:00:27 2007 @@ -1,12 +1,13 @@ package Time::Human; -require 5.005_62; +require 5.005_03; use strict; -use warnings; require Exporter; -our @ISA = qw(Exporter); +use vars qw/@ISA $VERSION %EXPORT_TAGS @EXPORT_OK @EXPORT + %templates $Language $Evening $Night/; +@ISA = qw(Exporter); # Items to export into callers namespace by default. Note: do not export # names by default without a very good reason. Use EXPORT_OK instead. @@ -15,19 +16,19 @@ # This allows declaration use Time::Human ':all'; # If you do not need this, moving things directly into @EXPORT or @EXPORT_OK # will save memory. -our %EXPORT_TAGS = ( 'all' => [ qw( +%EXPORT_TAGS = ( 'all' => [ qw( humantime ) ] ); -our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); +@EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); -our @EXPORT = qw( +@EXPORT = qw( humanize ); -our $VERSION = '1.03'; +$VERSION = '1.03'; -our %templates = ( +%templates = ( English => { numbers => [ qw(one two three four five six seven eight nine ten eleven twelve) ], @@ -43,9 +44,9 @@ } ); -our $Language = "English"; -our $Evening = 18; -our $Night = 22; +$Language = "English"; +$Evening = 18; +$Night = 22; # Preloaded methods go here.