line |
true |
false |
branch |
178
|
1 |
34 |
if @_ <= 1 |
187
|
3 |
170 |
unless (defined $year and defined $month and defined $day) |
195
|
2 |
168 |
if $year <= 0 |
196
|
2 |
166 |
if $month > 13 or $month <= 0 |
197
|
1 |
165 |
if $day <= 0 and $month <= 12 |
198
|
1 |
164 |
if $day > 30 and $month <= 12 |
199
|
2 |
162 |
if $month == 13 and $day <= 0 |
200
|
1 |
20 |
if $month == 13 and $day > 5 and not $is_leap |
201
|
2 |
159 |
if $month == 13 and $day > 6 |
205
|
98 |
61 |
if ($year >= 16) { } |
228
|
420 |
153 |
if exists $self->{'year'} |
234
|
64 |
89 |
if ($days < $YEARS_BEGINS[16]) { } |
250
|
1 |
88 |
if $x == 4 |
259
|
6 |
83 |
if $x == 4 |
273
|
177 |
153 |
if exists $self->{'month'} |
286
|
533 |
25 |
if exists $self->{'day'} |
298
|
46 |
216 |
if (@_ == 1) |
303
|
10 |
241 |
if $year == 3 or $year == 7 or $year == 11 or $year == 15 |
304
|
85 |
156 |
if $year < 20 |
307
|
66 |
90 |
if $year % 4 |
308
|
19 |
71 |
if $year % 100 |
309
|
39 |
32 |
if $year % 400 |
310
|
24 |
8 |
if $year % 4000 |
319
|
13 |
365 |
if ($spec eq '%d') |
320
|
2 |
363 |
if ($spec eq '%j') |
321
|
66 |
297 |
if ($spec eq '%e') |
322
|
2 |
295 |
if ($spec eq '%m') |
323
|
2 |
293 |
if ($spec eq '%f') |
324
|
9 |
284 |
if ($spec =~ /\%[YGL]/) |
325
|
75 |
209 |
if ($spec =~ /\%B/) |
326
|
6 |
203 |
if ($spec =~ /\%[bh]/) |
327
|
2 |
201 |
if ($spec eq '%y') |
328
|
1 |
200 |
if ($spec eq '%n') |
329
|
1 |
199 |
if ($spec eq '%t') |
330
|
1 |
198 |
if ($spec eq '%+') |
331
|
4 |
194 |
if ($spec eq '%%') |
332
|
4 |
190 |
if ($spec eq '%a') |
333
|
11 |
179 |
if ($spec eq '%A') |
334
|
3 |
176 |
if ($spec eq '%w') |
335
|
88 |
3 |
$self->year < 4000 ? : |
|
91 |
85 |
if ($spec eq '%EY') |
336
|
3 |
1 |
$self->year < 4000 ? : |
|
4 |
81 |
if ($spec eq '%Ey') |
339
|
11 |
70 |
if ($spec eq '%Ej' or $spec eq '%*') |
347
|
30 |
40 |
if ($spec eq '%EJ') |
356
|
4 |
36 |
if ($spec eq '%Oj') |
370
|
60 |
59 |
if not defined $format or $format eq '' |