5bb118f306
While I'm here, add a 'test' Makefile target to run the (trivial) test suite. PR: 109050 Submitted by: Li-Wen Hsu <lwhsu@lwhsu.org>
57 lines
1.3 KiB
Diff
57 lines
1.3 KiB
Diff
--- 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.
|
|
|