| lib/WorldCat/MARC/Record/Monkeypatch.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 4 | 12 | 33.3 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 1 | 0 | if (my $f001 = $self->field('001')) |
| 19 | 1 | 0 | if ($f001->data =~ qr/^(ocm|ocn|on\.)(\d+)$/) |
| 24 | 0 | 0 | if (my $f019 = $self->field('019')) |
| 28 | 0 | 0 | if (my $f035a = $self->subfield('035', 'a')) |
| 29 | 0 | 0 | if ($f035a->data =~ qr/OCoLC.(\d+)$/) |
| 59 | 12 | 10 | ref $subfields eq 'HASH' ? : |