line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Date::Manip::Lang::english; |
2
|
|
|
|
|
|
|
# Copyright (c) 1995-2023 Sullivan Beck. All rights reserved. |
3
|
|
|
|
|
|
|
# This program is free software; you can redistribute it and/or modify it |
4
|
|
|
|
|
|
|
# under the same terms as Perl itself. |
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
######################################################################## |
7
|
|
|
|
|
|
|
######################################################################## |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
require 5.010000; |
10
|
|
|
|
|
|
|
|
11
|
168
|
|
|
168
|
|
1326
|
use strict; |
|
168
|
|
|
|
|
382
|
|
|
168
|
|
|
|
|
5898
|
|
12
|
168
|
|
|
168
|
|
955
|
use warnings; |
|
168
|
|
|
|
|
355
|
|
|
168
|
|
|
|
|
5984
|
|
13
|
168
|
|
|
168
|
|
911
|
use utf8; |
|
168
|
|
|
|
|
369
|
|
|
168
|
|
|
|
|
1520
|
|
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
our($VERSION); |
16
|
|
|
|
|
|
|
$VERSION='6.91'; |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
our($Language,@Encodings,$LangName,$YearAdded); |
20
|
|
|
|
|
|
|
@Encodings = qw(); |
21
|
|
|
|
|
|
|
$LangName = "English"; |
22
|
|
|
|
|
|
|
$YearAdded = 1995; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
$Language = { |
25
|
|
|
|
|
|
|
_special_rules => { }, |
26
|
|
|
|
|
|
|
ampm => [['AM', 'A.M.'], ['PM', 'P.M.']], |
27
|
|
|
|
|
|
|
at => ['at'], |
28
|
|
|
|
|
|
|
day_abb => [ |
29
|
|
|
|
|
|
|
['Mon', 'Mon.'], |
30
|
|
|
|
|
|
|
['Tue', 'Tues', 'Tue.', 'Tues.'], |
31
|
|
|
|
|
|
|
['Wed', 'Wed.'], |
32
|
|
|
|
|
|
|
['Thu', 'Thur', 'Thu.', 'Thur.'], |
33
|
|
|
|
|
|
|
['Fri', 'Fri.'], |
34
|
|
|
|
|
|
|
['Sat', 'Sat.'], |
35
|
|
|
|
|
|
|
['Sun', 'Sun.'], |
36
|
|
|
|
|
|
|
], |
37
|
|
|
|
|
|
|
day_char => [['M'], ['T'], ['W'], ['Th'], ['F'], ['Sa'], ['S']], |
38
|
|
|
|
|
|
|
day_name => [ |
39
|
|
|
|
|
|
|
['Monday'], |
40
|
|
|
|
|
|
|
['Tuesday'], |
41
|
|
|
|
|
|
|
['Wednesday'], |
42
|
|
|
|
|
|
|
['Thursday'], |
43
|
|
|
|
|
|
|
['Friday'], |
44
|
|
|
|
|
|
|
['Saturday'], |
45
|
|
|
|
|
|
|
['Sunday'], |
46
|
|
|
|
|
|
|
], |
47
|
|
|
|
|
|
|
each => ['each', 'every'], |
48
|
|
|
|
|
|
|
fields => [ |
49
|
|
|
|
|
|
|
['years', 'y', 'yr', 'year', 'yrs'], |
50
|
|
|
|
|
|
|
['months', 'm', 'mon', 'month', 'mons'], |
51
|
|
|
|
|
|
|
['weeks', 'w', 'wk', 'wks', 'week'], |
52
|
|
|
|
|
|
|
['days', 'd', 'day'], |
53
|
|
|
|
|
|
|
['hours', 'h', 'hr', 'hrs', 'hour'], |
54
|
|
|
|
|
|
|
['minutes', 'mn', 'min', 'minute', 'mins'], |
55
|
|
|
|
|
|
|
['seconds', 's', 'sec', 'second', 'secs'], |
56
|
|
|
|
|
|
|
], |
57
|
|
|
|
|
|
|
last => ['last', 'final'], |
58
|
|
|
|
|
|
|
mode => [['exactly', 'approximately'], ['business']], |
59
|
|
|
|
|
|
|
month_abb => [ |
60
|
|
|
|
|
|
|
['Jan', 'Jan.'], |
61
|
|
|
|
|
|
|
['Feb', 'Feb.'], |
62
|
|
|
|
|
|
|
['Mar', 'Mar.'], |
63
|
|
|
|
|
|
|
['Apr', 'Apr.'], |
64
|
|
|
|
|
|
|
['May', 'May.'], |
65
|
|
|
|
|
|
|
['Jun', 'Jun.'], |
66
|
|
|
|
|
|
|
['Jul', 'Jul.'], |
67
|
|
|
|
|
|
|
['Aug', 'Aug.'], |
68
|
|
|
|
|
|
|
['Sep', 'Sept', 'Sep.', 'Sept.'], |
69
|
|
|
|
|
|
|
['Oct', 'Oct.'], |
70
|
|
|
|
|
|
|
['Nov', 'Nov.'], |
71
|
|
|
|
|
|
|
['Dec', 'Dec.'], |
72
|
|
|
|
|
|
|
], |
73
|
|
|
|
|
|
|
month_name => [ |
74
|
|
|
|
|
|
|
['January'], |
75
|
|
|
|
|
|
|
['February'], |
76
|
|
|
|
|
|
|
['March'], |
77
|
|
|
|
|
|
|
['April'], |
78
|
|
|
|
|
|
|
['May'], |
79
|
|
|
|
|
|
|
['June'], |
80
|
|
|
|
|
|
|
['July'], |
81
|
|
|
|
|
|
|
['August'], |
82
|
|
|
|
|
|
|
['September'], |
83
|
|
|
|
|
|
|
['October'], |
84
|
|
|
|
|
|
|
['November'], |
85
|
|
|
|
|
|
|
['December'], |
86
|
|
|
|
|
|
|
], |
87
|
|
|
|
|
|
|
nextprev => [['next', 'following'], ['previous', 'last']], |
88
|
|
|
|
|
|
|
nth => [ |
89
|
|
|
|
|
|
|
['1st', 'first', 'one'], |
90
|
|
|
|
|
|
|
['2nd', 'second', 'two'], |
91
|
|
|
|
|
|
|
['3rd', 'third', 'three'], |
92
|
|
|
|
|
|
|
['4th', 'fourth', 'four'], |
93
|
|
|
|
|
|
|
['5th', 'fifth', 'five'], |
94
|
|
|
|
|
|
|
['6th', 'sixth', 'six'], |
95
|
|
|
|
|
|
|
['7th', 'seventh', 'seven'], |
96
|
|
|
|
|
|
|
['8th', 'eighth', 'eight'], |
97
|
|
|
|
|
|
|
['9th', 'ninth', 'nine'], |
98
|
|
|
|
|
|
|
['10th', 'tenth', 'ten'], |
99
|
|
|
|
|
|
|
['11th', 'eleventh', 'eleven'], |
100
|
|
|
|
|
|
|
['12th', 'twelfth', 'twelve'], |
101
|
|
|
|
|
|
|
['13th', 'thirteenth', 'thirteen'], |
102
|
|
|
|
|
|
|
['14th', 'fourteenth', 'fourteen'], |
103
|
|
|
|
|
|
|
['15th', 'fifteenth', 'fifteen'], |
104
|
|
|
|
|
|
|
['16th', 'sixteenth', 'sixteen'], |
105
|
|
|
|
|
|
|
['17th', 'seventeenth', 'seventeen'], |
106
|
|
|
|
|
|
|
['18th', 'eighteenth', 'eighteen'], |
107
|
|
|
|
|
|
|
['19th', 'nineteenth', 'nineteen'], |
108
|
|
|
|
|
|
|
['20th', 'twentieth', 'twenty'], |
109
|
|
|
|
|
|
|
['21st', 'twenty-first', 'twenty-one'], |
110
|
|
|
|
|
|
|
['22nd', 'twenty-second', 'twenty-two'], |
111
|
|
|
|
|
|
|
['23rd', 'twenty-third', 'twenty-three'], |
112
|
|
|
|
|
|
|
['24th', 'twenty-fourth', 'twenty-four'], |
113
|
|
|
|
|
|
|
['25th', 'twenty-fifth', 'twenty-five'], |
114
|
|
|
|
|
|
|
['26th', 'twenty-sixth', 'twenty-six'], |
115
|
|
|
|
|
|
|
['27th', 'twenty-seventh', 'twenty-seven'], |
116
|
|
|
|
|
|
|
['28th', 'twenty-eighth', 'twenty-eight'], |
117
|
|
|
|
|
|
|
['29th', 'twenty-ninth', 'twenty-nine'], |
118
|
|
|
|
|
|
|
['30th', 'thirtieth', 'thirty'], |
119
|
|
|
|
|
|
|
['31st', 'thirty-first', 'thirty-one'], |
120
|
|
|
|
|
|
|
['32nd', 'thirty-two', 'thirty-second'], |
121
|
|
|
|
|
|
|
['33rd', 'thirty-three', 'thirty-third'], |
122
|
|
|
|
|
|
|
['34th', 'thirty-four', 'thirty-fourth'], |
123
|
|
|
|
|
|
|
['35th', 'thirty-five', 'thirty-fifth'], |
124
|
|
|
|
|
|
|
['36th', 'thirty-six', 'thirty-sixth'], |
125
|
|
|
|
|
|
|
['37th', 'thirty-seven', 'thirty-seventh'], |
126
|
|
|
|
|
|
|
['38th', 'thirty-eight', 'thirty-eighth'], |
127
|
|
|
|
|
|
|
['39th', 'thirty-nine', 'thirty-ninth'], |
128
|
|
|
|
|
|
|
['40th', 'forty', 'fortieth'], |
129
|
|
|
|
|
|
|
['41st', 'forty-one', 'forty-first'], |
130
|
|
|
|
|
|
|
['42nd', 'forty-two', 'forty-second'], |
131
|
|
|
|
|
|
|
['43rd', 'forty-three', 'forty-third'], |
132
|
|
|
|
|
|
|
['44th', 'forty-four', 'forty-fourth'], |
133
|
|
|
|
|
|
|
['45th', 'forty-five', 'forty-fifth'], |
134
|
|
|
|
|
|
|
['46th', 'forty-six', 'forty-sixth'], |
135
|
|
|
|
|
|
|
['47th', 'forty-seven', 'forty-seventh'], |
136
|
|
|
|
|
|
|
['48th', 'forty-eight', 'forty-eighth'], |
137
|
|
|
|
|
|
|
['49th', 'forty-nine', 'forty-ninth'], |
138
|
|
|
|
|
|
|
['50th', 'fifty', 'fiftieth'], |
139
|
|
|
|
|
|
|
['51st', 'fifty-one', 'fifty-first'], |
140
|
|
|
|
|
|
|
['52nd', 'fifty-two', 'fifty-second'], |
141
|
|
|
|
|
|
|
['53rd', 'fifty-three', 'fifty-third'], |
142
|
|
|
|
|
|
|
], |
143
|
|
|
|
|
|
|
of => ['of', 'in'], |
144
|
|
|
|
|
|
|
offset_date => { |
145
|
|
|
|
|
|
|
ereyesterday => '-0:0:0:2:0:0:0', |
146
|
|
|
|
|
|
|
overmorrow => '+0:0:0:2:0:0:0', |
147
|
|
|
|
|
|
|
today => '0:0:0:0:0:0:0', |
148
|
|
|
|
|
|
|
tomorrow => '+0:0:0:1:0:0:0', |
149
|
|
|
|
|
|
|
yesterday => '-0:0:0:1:0:0:0', |
150
|
|
|
|
|
|
|
}, |
151
|
|
|
|
|
|
|
offset_time => { now => '0:0:0:0:0:0:0' }, |
152
|
|
|
|
|
|
|
on => ['on'], |
153
|
|
|
|
|
|
|
times => { midnight => '00:00:00', noon => '12:00:00' }, |
154
|
|
|
|
|
|
|
when => [ |
155
|
|
|
|
|
|
|
['ago', 'past', 'in the past', 'earlier', 'before now'], |
156
|
|
|
|
|
|
|
['in', 'later', 'future', 'in the future', 'from now'], |
157
|
|
|
|
|
|
|
], |
158
|
|
|
|
|
|
|
}; |
159
|
|
|
|
|
|
|
|
160
|
|
|
|
|
|
|
1; |