| line |
true |
false |
branch |
|
31
|
3 |
8 |
if ($file =~ /^\s*>>?/) |
|
32
|
0 |
3 |
unless open OUT, $file |
|
34
|
3 |
0 |
$r ? : |
|
36
|
0 |
8 |
unless open IN, $file |
|
46
|
3 |
0 |
unless defined $portable |
|
52
|
0 |
3 |
if $portable |
|
76
|
0 |
0 |
if $num =~ /\D/ or $num < 0 or $num > $last |
|
104
|
0 |
3 |
unless defined $num and defined $fvalue |
|
115
|
0 |
3 |
if ($num =~ s/^\.0/0/ or $num eq '.') |
|
120
|
0 |
0 |
if $ret or $num eq '.' |
|
150
|
3 |
2 |
if ($#_ < 0) { } |
|
154
|
0 |
3 |
if -e $dir_type |
|
159
|
0 |
2 |
if ($n =~ s/^\.0/0/ || $n eq '.' and -e $dir_type) |
|
163
|
0 |
0 |
if $n eq '.' |
|
208
|
0 |
0 |
$fname =~ m[^$dir/\Q$dtname\E] ? : |
|
|
0 |
8 |
unless defined $number |
|
211
|
0 |
8 |
$status ? : |
|
222
|
0 |
13 |
unless $s |
|
224
|
5 |
8 |
unless defined $max |
|
225
|
0 |
13 |
unless $max =~ /^(\d+)([esmESM]*)([+-]\d+%?)?$/ |
|
232
|
1 |
8 |
$where eq 'm' ? : |
|
236
|
1 |
12 |
if (defined $tweak) |
|
243
|
3 |
10 |
if $slen <= $maxlen or $maxlen == 0 |
|
256
|
4 |
6 |
if ($where eq 'm') { } |
|
259
|
0 |
4 |
if $half > $left - $half |
|
268
|
4 |
2 |
$where eq 'e' ? : |
|
269
|
4 |
2 |
if ($where eq 'e') { } |