| line |
true |
false |
branch |
|
151
|
1 |
7 |
if (exists $opts{$att}) |
|
155
|
0 |
1 |
if %opts |
|
158
|
1 |
0 |
@{$$self{'cat'};} ? : |
|
|
1 |
0 |
unless defined $$self{'autocat'} |
|
174
|
0 |
15 |
if (length $value > $max) |
|
180
|
0 |
0 |
if ($$self{'truncate'} > $lvl) { } |
|
194
|
0 |
6 |
if defined $$self{'_cat'}{$value} |
|
196
|
0 |
6 |
if (@{$$self{'cat'};} == 16) |
|
221
|
1 |
1 |
if ($$self{'_cat'}{$cat}) { } |
|
|
1 |
0 |
elsif ($$self{'autocat'}) { } |
|
231
|
0 |
0 |
if ($f1 eq '' and $f2 eq '' and $note eq '') |
|
253
|
0 |
1 |
if $catcode |
|
281
|
0 |
1 |
unless (@{$$self{'_data'};}) |
|
298
|
0 |
1 |
unless lc $$a[1] cmp lc $$b[1] or lc $$a[2] cmp lc $$b[2] |
|
307
|
0 |
1 |
unless open $fh, ">$file" |
|
333
|
1 |
0 |
$$self{'backup'} ? : |
|
|
0 |
1 |
$$self{'private'} ? : |
|
349
|
0 |
1 |
unless length $hdr == 78 |
|
363
|
2 |
0 |
if $field1 ne '' |
|
364
|
2 |
0 |
if $field2 ne '' |
|
365
|
2 |
0 |
if $note ne '' |
|
366
|
0 |
2 |
if $len == 3 |
|
392
|
10 |
6 |
unless $$self{'cat'}[$_] |
|
394
|
5 |
11 |
$_ && $_ < $numcats ? : |
|
395
|
0 |
1 |
$$self{'readonly'} ? : |
|
403
|
0 |
1 |
unless length $appinfo == 512 |
|
420
|
6 |
0 |
if ($len) { } |
|
429
|
0 |
6 |
unless length $_ |