| line |
true |
false |
branch |
|
100
|
1 |
7 |
unless $file |
|
102
|
2 |
5 |
if ($encoding) |
|
103
|
1 |
1 |
unless &find_encoding($encoding) |
|
106
|
1 |
5 |
$encoding ? : |
|
116
|
1 |
5 |
if (not $@ and defined $ishandle) { } |
|
|
4 |
1 |
elsif (-e $file or ref $file eq 'SCALAR') { } |
|
121
|
0 |
4 |
unless open $self->{'fh'}, "<:encoding($self->{'encoding'})", $file |
|
141
|
6 |
0 |
if (defined(my $raw = <$fh>)) |
|
147
|
0 |
6 |
unless $raw |
|
149
|
2 |
4 |
if (my $marc = $self->_decode($raw)) { } |
|
170
|
1 |
5 |
unless (@fields) |
|
177
|
4 |
1 |
if ($head =~ /(.{$LEADER_LEN})/cg) { } |
|
187
|
1 |
3 |
if (scalar @tags != scalar @fields) |
|
193
|
1 |
2 |
unless ($head =~ /\G$/cg) |
|
214
|
8 |
27 |
if @chunks == 1 |