| line |
true |
false |
branch |
|
84
|
0 |
0 |
if (ref $_[0]) { } |
|
85
|
0 |
0 |
unless &open($fh, shift()) |
|
98
|
0 |
0 |
unless my $ind = shift() |
|
99
|
0 |
0 |
ref $ind ? : |
|
107
|
0 |
0 |
unless length $_ |
|
117
|
0 |
0 |
if (ref $$field[1]) { } |
|
119
|
0 |
0 |
ref $_ ? : |
|
131
|
0 |
0 |
if $last |
|
181
|
0 |
0 |
if @chunks == 1 |
|
194
|
0 |
0 |
unless @fields |
|
195
|
0 |
0 |
unless $head =~ /(.{24})/cgu |
|
198
|
0 |
0 |
unless ($head =~ /\G$/cgu) |
|
207
|
0 |
0 |
ref $$_[1] ? : |
|
214
|
0 |
0 |
unless ref $subfields |
|
228
|
0 |
0 |
unless _control_field_for_human() or _data_field_for_human() |
|
244
|
1 |
5 |
unless @_ > 1 |
|
247
|
4 |
0 |
ref $r ? : |
|
268
|
0 |
0 |
if $r |
|
289
|
0 |
0 |
is_control($_) ? : |
|
299
|
0 |
0 |
@_ ? : |
|
304
|
0 |
0 |
if tag($_) eq '001' |
|
310
|
0 |
0 |
@_ ? : |
|
332
|
0 |
0 |
ref $_ ? : |
|
341
|
0 |
0 |
unless $ID = record_id($_) |
|
420
|
0 |
0 |
unless @data |