| blib/lib/MAB2/Parser/Disk.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 18 | 94.4 |
| line | true | false | branch |
|---|---|---|---|
| 27 | 1 | 3 | if (not $@ and defined $ishandle) { } |
| 2 | 1 | elsif (-e $file) { } | |
| 32 | 0 | 2 | unless open $self->{'reader'}, '<:encoding(UTF-8)', $file |
| 45 | 26 | 1 | if (my $data = $self->{'reader'}->getline) |
| 65 | 25 | 1 | if ($leader =~ /^\N{U+23}{3}\s(\d{5}[cdnpu]M2.0\d{7}\s{6}\w)/msx) { } |
| 75 | 1 | 1054 | if (length $field <= 4) |
| 80 | 1053 | 1 | if (my($tag, $ind, $data) = $field =~ /^(\d{3})([A-Za-z0-9\s])(.*)/) { } |
| 84 | 61 | 992 | if ($data =~ /\s*($SUBFIELD_INDICATOR|\$)(.*)/) { } |
| 85 | 8 | 53 | $1 eq '$' ? : |