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 |