59 lines
1.3 KiB
Diff
59 lines
1.3 KiB
Diff
--- Human.pm.orig Thu May 30 14:01:27 2002
|
|
+++ Human.pm Tue Jun 29 11:52:35 2004
|
|
@@ -1,12 +1,15 @@
|
|
+#!/usr/bin/perl -w
|
|
+
|
|
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 +18,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.02';
|
|
+$VERSION = '1.02';
|
|
|
|
-our %templates = (
|
|
+%templates = (
|
|
|
|
English => {
|
|
numbers => [ qw(one two three four five six seven eight nine ten eleven twelve) ],
|
|
@@ -43,9 +46,9 @@
|
|
}
|
|
);
|
|
|
|
-our $Language = "English";
|
|
-our $Evening = 18;
|
|
-our $Night = 22;
|
|
+$Language = "English";
|
|
+$Evening = 18;
|
|
+$Night = 22;
|
|
|
|
# Preloaded methods go here.
|
|
|