| line |
true |
false |
branch |
|
154
|
1 |
2 |
$argv1 ? : |
|
186
|
7107 |
14869 |
if ($p =~ /\A[A-Z][a-z]{2,}[,]?\z/u) { } |
|
|
7240 |
7629 |
elsif ($p =~ /\A\d{1,4}\z/u) { } |
|
|
3659 |
3970 |
elsif ($p =~ /\A([0-2]\d):([0-5]\d):([0-5]\d)\z/u or $p =~ /\A(\d{1,2})[-:](\d{1,2})[-:](\d{1,2})\z/u) { } |
|
|
2 |
3968 |
elsif ($p =~ /\A([0-2]\d):([0-5]\d)\z/u) { } |
|
|
1 |
3967 |
elsif ($p =~ /\A(\d\d?):(\d\d?)\z/u) { } |
|
|
12 |
3955 |
elsif (lc $p eq 'am' or lc $p eq 'pm') { } |
|
188
|
3474 |
3633 |
if substr($p, -1, 1) eq "," |
|
189
|
6 |
7101 |
if length $p > 3 |
|
191
|
3485 |
3622 |
if (grep {$p eq $_;} @{{abbr => ['Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat'], full => ['Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday']}->{'abbr'}}) { } |
|
|
3619 |
3 |
elsif (grep {$p eq $_;} @{{abbr => ['Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'], full => ['January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December']}->{'abbr'}}) { } |
|
202
|
3575 |
3665 |
if ($p > 31) { } |
|
208
|
46 |
3619 |
if ($v->{'d'}) { } |
|
210
|
46 |
0 |
unless $v->{'Y'} |
|
220
|
3656 |
2 |
if $1 < 24 and $2 < 60 and $3 < 60 |
|
224
|
2 |
0 |
if $1 < 24 and $2 < 60 |
|
236
|
3541 |
414 |
if ($p =~ /\A[-+][01]\d{3}\z/u) { } |
|
|
358 |
56 |
elsif ($p =~ /\A[(]?[A-Z]{2,5}[)]?\z/u) { } |
|
246
|
35 |
21 |
if ($p =~ m[\A(\d{4})[-/](\d{1,2})[-/](\d{1,2})\z]u) { } |
|
|
1 |
20 |
elsif ($p =~ m[\A(\d{4})[-/](\d{1,2})[-/](\d{1,2})T([0-2]\d):([0-5]\d):([0-5]\d)\z]u) { } |
|
|
6 |
14 |
elsif ($p =~ m[\A(\d{1,2})/(\d{1,2})/(\d{1,2})\z]u) { } |
|
|
1 |
13 |
elsif ($p =~ m[\A(\d{1,2})[-/](\d{1,2})[-/](\d{4})]u) { } |
|
256
|
1 |
0 |
if $3 < 32 |
|
258
|
1 |
0 |
if $4 < 24 and $5 < 60 and $6 < 60 |
|
265
|
0 |
6 |
if $v->{'Y'} > "Time::Piece"->new->year + 1 |
|
269
|
1 |
0 |
if $1 < 32 |
|
277
|
12 |
3651 |
if ($v->{'T'} and $afternoon1) |
|
282
|
1 |
11 |
if $t1[0] > 12 |
|
286
|
2 |
3661 |
if length $v->{'Y'} > 0 and int $v->{'Y'} < 200 |
|
290
|
46 |
3617 |
if (exists $altervalue->{'Y'} and not $v->{'Y'}) |
|
292
|
0 |
46 |
if ($altervalue->{'Y'} >= 82) { } |
|
303
|
5 |
3658 |
if (grep {$_ eq "";} values %$v) |
|
311
|
2 |
3656 |
if $v->{'Y'} < 1902 or $v->{'Y'} > 2037 |
|
337
|
3633 |
48 |
if ($argv1 =~ /\A([-+])(\d)(\d)(\d{2})\z/u) { } |
|
|
1 |
47 |
elsif ($argv1 =~ /\A[A-Za-z]+\z/u) { } |
|
347
|
690 |
2943 |
if $digit->{'operator'} eq "-" |
|
349
|
2 |
3631 |
if abs $ztime > 54000 |
|
371
|
0 |
63 |
if ref $argv1 and ref $argv1 ne "Time::Seconds" |
|
372
|
2 |
61 |
if abs $argv1 > 54000 |
|
373
|
2 |
59 |
if $argv1 < 0 |