File Coverage

lib/Date/Manip/Lang/english.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Date::Manip::Lang::english;
2             # Copyright (c) 1995-2022 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   1444 use strict;
  168         373  
  168         7602  
12 168     168   979 use warnings;
  168         391  
  168         6043  
13 168     168   966 use utf8;
  168         323  
  168         1736  
14              
15             our($VERSION);
16             $VERSION='6.90';
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;