| line |
true |
false |
branch |
|
23
|
0 |
1 |
unless (@_) |
|
27
|
1 |
0 |
if (@_ == 2) |
|
28
|
1 |
0 |
if ($args{'file'}) |
|
31
|
0 |
0 |
if ($args{'url'}) |
|
34
|
0 |
0 |
if ($args{'files'}) |
|
42
|
0 |
0 |
if (@_ == 4) |
|
43
|
0 |
0 |
unless $args{'base'} and $args{'files'} |
|
55
|
1 |
1 |
if (@_) |
|
57
|
1 |
0 |
if (my $start = $args{'start'}) |
|
60
|
1 |
0 |
if (my $end = $args{'end'}) |
|
71
|
0 |
0 |
unless (@_) |
|
78
|
0 |
0 |
if (not $start or $time >= $start) |
|
79
|
0 |
0 |
if (not $end or $time <= $end) |
|
91
|
0 |
1 |
unless open my $fh, "<$file" |
|
103
|
0 |
0 |
unless defined $contents |
|
135
|
1 |
67 |
if (/^\s+($mnths)\s+(\d{4})/i) |
|
140
|
0 |
1 |
if (/^DAY/ and not defined $mon and not defined $year) |
|
144
|
31 |
36 |
if (/^ ?(\d{1,2}) ([ 0-9-]{32}) ([ 0-9-]{32}) ([ 0-9-]{32})/) |
|
155
|
0 |
31 |
unless defined $year and defined $mon and defined $day |
|
161
|
687 |
57 |
if $val eq '9999' |
|
162
|
0 |
57 |
if $val eq ' ' |