| blib/lib/MARC/File.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 7 | 22 | 31.8 |
| line | true | false | branch |
|---|---|---|---|
| 59 | 11 | 32 | if ($ishandle) { } |
| 68 | 0 | 32 | unless open FH, $arg |
| 69 | 0 | 32 | if ($@) |
| 76 | 0 | 43 | utf8_safe() ? : |
| 107 | 19 | 371 | unless my $rec = $self->_next |
| 123 | 0 | 0 | unless my $rec = $self->_next |
| 189 | 0 | 0 | if (@parms) |
| 192 | 0 | 0 | if (ref($self) =~ /^MARC::File/) { } |
| 193 | 0 | 0 | if $$self{'fh'} |
| 195 | 0 | 0 | if $$self{'filename'} |
| 215 | 0 | 0 | if $] >= 5.008001 |