| line |
true |
false |
branch |
|
47
|
1 |
60 |
unless defined $value |
|
72
|
1 |
151 |
if @_ < 2 |
|
73
|
1 |
150 |
if @_ > 2 |
|
75
|
1 |
149 |
unless $m =~ /\A\s* \d+ \s*\z/x |
|
76
|
0 |
149 |
if $m < 1 or $m > 12 |
|
77
|
133 |
16 |
if $m != 2 |
|
80
|
5 |
11 |
is_leap($y) ? : |
|
86
|
1 |
23 |
if @_ < 1 |
|
87
|
1 |
22 |
if @_ > 1 |
|
93
|
270 |
216 |
$_[0] > 9 ? : |
|
101
|
17 |
78 |
if ($M < 1) |
|
118
|
392 |
0 |
$have_posix ? : |
|
119
|
0 |
392 |
unless defined $locale_in_use |
|
122
|
384 |
8 |
if defined $locale and $locale eq $locale_in_use |
|
182
|
0 |
8 |
if ($@) |
|
215
|
1 |
72 |
if @_ < 2 |
|
216
|
1 |
71 |
if @_ > 4 |
|
222
|
43 |
28 |
if (defined $ampm and length $ampm) |
|
225
|
4 |
39 |
unless defined $ap |
|
229
|
2 |
65 |
unless $inh =~ /\A\s* \d+ \s*\z/x |
|
230
|
39 |
26 |
if (defined $ap) { } |
|
233
|
3 |
36 |
if $inh < 1 or $inh > 12 |
|
235
|
2 |
34 |
$hour12 == 12 ? : |
|
236
|
15 |
21 |
if $ap eq 'p' |
|
241
|
2 |
24 |
if $inh < 0 or $inh > 23 |
|
243
|
2 |
12 |
$hour24 == 0 ? : |
|
|
10 |
14 |
$hour24 > 12 ? : |
|
244
|
13 |
11 |
$hour24 < 12 ? : |
|
249
|
1 |
57 |
if not $inm =~ /\A\s* \d+ \s*\z/x or $inm < 0 or $inm > 59 |
|
253
|
44 |
13 |
if (defined $ins and length $ins) { } |
|
255
|
1 |
41 |
if not $ins =~ /\A\s* \d+ \s*\z/x or $ins < 0 or $ins > 59 |
|
265
|
34 |
20 |
wantarray ? : |
|
279
|
1 |
117 |
if @_ < 3 |
|
280
|
1 |
116 |
if @_ > 3 |
|
293
|
13 |
95 |
if not $ind =~ /\A\s* \d+ \s*\z/x or $ind < 1 or $ind > days_in($month, $year) |
|
299
|
73 |
22 |
if wantarray |
|
317
|
1 |
13 |
if @_ < 5 |
|
318
|
1 |
12 |
if @_ > 7 |
|
324
|
6 |
6 |
if wantarray |
|
344
|
2 |
13 |
if ($type eq 'iso') { } |
|
|
2 |
11 |
elsif ($type eq 'mail') { } |
|
|
2 |
9 |
elsif ($type eq 'american') { } |
|
|
2 |
7 |
elsif ($type eq 'ymd') { } |
|
|
2 |
5 |
elsif ($type eq 'mdy') { } |
|
|
2 |
3 |
elsif ($type eq 'dmy') { } |
|
|
2 |
1 |
elsif ($type eq 'hms') { } |
|
391
|
1 |
2 |
if @_ < 3 |
|
392
|
1 |
1 |
if @_ > 3 |
|
401
|
0 |
0 |
if @_ < 3 |
|
402
|
0 |
0 |
if @_ > 3 |
|
411
|
0 |
0 |
if @_ < 2 |
|
412
|
0 |
0 |
if @_ > 4 |
|
419
|
1 |
237 |
if @_ < 1 |
|
420
|
1 |
236 |
if @_ > 1 |
|
425
|
1 |
235 |
unless defined $inm |
|
428
|
136 |
99 |
if ($inm =~ /\A\s* \d+ \s*\z/x) { } |
|
431
|
6 |
130 |
if $inm < 1 or $inm > 12 |
|
437
|
2 |
97 |
if ($use_mail_months) { } |
|
439
|
1 |
1 |
unless defined $mail_month_number |
|
446
|
9 |
90 |
unless defined $month |
|
453
|
0 |
161 |
if @_ < 1 |
|
454
|
0 |
161 |
if @_ > 1 |
|
457
|
124 |
37 |
if ($iny =~ /\A\s* \d{4} \s*\z/x) |
|
463
|
28 |
9 |
if ($iny =~ /\A\s* \d{2} \s*\z/x) |
|
468
|
28 |
0 |
if ($current_yy <= 50) { } |
|
470
|
22 |
6 |
$iny <= $current_yy + 50 ? : |
|
475
|
0 |
0 |
$iny <= $current_yy - 50 ? : |
|
484
|
1 |
37 |
if @_ < 2 |
|
485
|
1 |
36 |
if @_ > 2 |
|
496
|
0 |
0 |
if @_ > 1 |
|
497
|
0 |
0 |
if @_ == 1 and not $_[0] =~ /\A\s* \d+ \s*\z/x |
|
498
|
0 |
0 |
@_ ? : |
|
504
|
0 |
2 |
if @_ > 1 |
|
505
|
0 |
2 |
if @_ == 1 and not $_[0] =~ /\A\s* \d+ \s*\z/x |
|
506
|
2 |
0 |
@_ ? : |
|
516
|
1 |
1 |
if (wantarray) |
|
538
|
1 |
16 |
if @_ > 1 |
|
539
|
1 |
15 |
if @_ < 1 |
|
541
|
1 |
14 |
unless $mon =~ /\A\s* \d+ \s*\z/x |
|
542
|
2 |
12 |
if $mon < 1 or $mon > 12 |
|
550
|
1 |
16 |
if @_ > 1 |
|
551
|
1 |
15 |
if @_ < 1 |
|
553
|
1 |
14 |
unless $mon =~ /\A\s* \d+ \s*\z/x |
|
554
|
2 |
12 |
if $mon < 1 or $mon > 12 |
|
562
|
1 |
10 |
if @_ > 1 |
|
563
|
1 |
9 |
if @_ < 1 |
|
565
|
1 |
8 |
unless $day =~ /\A\s* \d+ \s*\z/x |
|
566
|
1 |
7 |
if $day < 0 or $day > 6 |
|
574
|
1 |
10 |
if @_ > 1 |
|
575
|
1 |
9 |
if @_ < 1 |
|
577
|
1 |
8 |
unless $day =~ /\A\s* \d+ \s*\z/x |
|
578
|
1 |
7 |
if $day < 0 or $day > 6 |