blob: 4cef9635b715218b5b61935d22325f89572645c8 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
--- 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.
|
