| line |
true |
false |
branch |
|
17
|
0 |
1 |
unless ($$self{'args'}{'format'}) |
|
28
|
0 |
1 |
unless ($date) |
|
38
|
0 |
1 |
unless ($a and $b and $c) |
|
43
|
0 |
1 |
if ($$self{'args'}{'format'} eq 'eu') { } |
|
|
1 |
0 |
elsif ($$self{'args'}{'format'} eq 'us') { } |
|
54
|
0 |
0 |
if ($$self{'args'}{'century_cutoff'} and $$self{'args'}{'century_cutoff'} eq 'disallow' and not $y =~ /^\d{4}$/) |
|
64
|
0 |
1 |
if ($$self{'args'}{'century_cutoff'} and $$self{'args'}{'century_cutoff'} =~ /^\d{1,2}$/) |
|
67
|
0 |
0 |
$y > $cutoff ? : |
|
|
0 |
1 |
$y < 100 ? : |
|
69
|
0 |
1 |
unless (Date::Calc::check_date($y, $m, $d)) |
|
81
|
0 |
1 |
unless ($date) |
|
89
|
0 |
1 |
unless (Date::Calc::check_date($y, $m, $d)) |
|
94
|
1 |
0 |
if ($$self{'args'}{'informal'}) |
|
100
|
0 |
1 |
if ($$self{'args'}{'separator'}) |
|
105
|
0 |
1 |
if $$self{'args'}{'format'} and $$self{'args'}{'format'} eq 'eu' |