| blib/lib/MARC/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 18 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 63 | 11 | 37 | if ($ishandle) { } |
| 72 | 0 | 37 | unless open FH, '<', $arg |
| 73 | 0 | 37 | if ($@) |
| 109 | 22 | 387 | unless my $rec = $self->_next |
| 125 | 0 | 0 | unless my $rec = $self->_next |
| 191 | 0 | 0 | if (@parms) |
| 194 | 0 | 0 | if (ref($self) =~ /^MARC::File/) { } |
| 195 | 0 | 0 | if $$self{'fh'} |
| 197 | 0 | 0 | if $$self{'filename'} |