| line |
true |
false |
branch |
|
71
|
1 |
5 |
unless $$self{'marcdb'} |
|
73
|
0 |
5 |
if $$self{'debug'} |
|
75
|
1 |
4 |
unless open $$self{'fh'}, $$self{'marcdb'} |
|
89
|
2 |
13 |
if ($len < 24) |
|
121
|
0 |
13 |
if $$self{'debug'} |
|
128
|
0 |
13 |
unless $o =~ /^\d+$/ |
|
129
|
13 |
0 |
if ($o > 24) { } |
|
130
|
13 |
0 |
if $o |
|
168
|
2 |
49 |
unless ($rec_nr) |
|
175
|
1 |
48 |
unless ($leader) |
|
180
|
0 |
48 |
unless (defined $offset) |
|
188
|
0 |
48 |
if $$self{'debug'} |
|
192
|
0 |
48 |
if $$self{'debug'} |
|
194
|
0 |
48 |
unless (seek $$self{'fh'}, $offset + 24, 0) |
|
199
|
0 |
48 |
if $$self{'debug'} |
|
202
|
0 |
48 |
if (not read($$self{'fh'}, $directory, $base_addr - 24)) { } |
|
206
|
0 |
48 |
if $$self{'debug'} |
|
209
|
0 |
48 |
if $$self{'debug'} |
|
212
|
0 |
48 |
if (not read($$self{'fh'}, $fields, $reclen - $base_addr)) { } |
|
216
|
0 |
48 |
if $$self{'debug'} |
|
224
|
0 |
907 |
if ($addr + $len > length $fields) |
|
225
|
0 |
0 |
unless $$self{'quiet'} |
|
232
|
0 |
907 |
if $$self{'debug'} |
|
239
|
0 |
907 |
if ($$self{'assert'} and $del ne "\036") |
|
240
|
0 |
0 |
unless $$self{'quiet'} |
|
245
|
0 |
907 |
if ($$self{'assert'} and length $f < 2) |
|
246
|
0 |
0 |
unless $$self{'quiet'} |
|
325
|
84 |
374 |
if $filter_coderef |
|
330
|
369 |
89 |
if $l =~ s/^([01 #])([01 #])\x1F/\037/ |
|
336
|
373 |
85 |
if ($l =~ /\x1F/) { } |
|
338
|
369 |
1028 |
unless $t |
|
345
|
1 |
1027 |
if (defined $$val{$f}) { } |
|
346
|
1 |
0 |
if (ref $$val{$f} ne 'ARRAY') { } |
|
355
|
159 |
214 |
if $$args{'include_subfields'} |