| line | % | coverage | branch |
|---|
| 108 | 0 | T | F | if ($intype eq 'marc21') |
| 109 | 0 | T | F | if ($leader =~ /^.{9}a/) { } |
| 110 | 0 | T | F | if $marcprint |
| 114 | 0 | T | F | if $marcprint |
| 126 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 138 | 0 | T | F | if (length $field) |
| 150 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 164 | 0 | T | F | if (length $field) |
| 171 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 179 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 187 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 0 | T | F | elsif ($intype eq 'ukmarc') { } |
| 201 | 0 | T | F | if ($intype eq 'marc21') |
| 208 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 219 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 0 | T | F | elsif ($intype eq 'ukmarc') { } |
| 247 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 0 | T | F | elsif ($intype eq 'ukmarc') { } |
| 265 | 0 | T | F | if (length $allnotes > 0) |
| 270 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 0 | T | F | elsif ($intype eq 'ukmarc') { } |
| 281 | 0 | T | F | if ($record->field('856')) |
| 350 | 50 | T | F | if ($intype eq 'marc21' or $intype eq 'ukmarc') { } |
| 50 | T | F | elsif ($intype eq 'unimarc') { } |
| 361 | 50 | T | F | if (not exists $typehash{$typeofrecord}) { } |
| 363 | 50 | T | F | if $marcprint |
| 387 | 0 | T | F | if ($nametype == 0) { } |
| 0 | T | F | elsif ($nametype == 1) { } |
| 0 | T | F | elsif ($nametype == 3) { } |
| 389 | 0 | T | F | if $marcprint |
| 408 | 0 | T | F | if (length $rawauthorb > 0) { } |
| 431 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 438 | 0 | T | F | if $marcprint |
| 439 | 0 | T | F | if $marcprint |
| 440 | 0 | T | F | if $marcprint |
| 441 | 0 | T | F | if $marcprint |
| 442 | 0 | T | F | if $marcprint |
| 443 | 0 | T | F | if ($intype eq 'ukmarc') { } |
| 460 | 0 | T | F | if (not $editorfield) { } |
| 464 | 0 | T | F | if $marcprint |
| 465 | 0 | T | F | if $marcprint |
| 466 | 0 | T | F | if $marcprint |
| 478 | 50 | T | F | if (not $titlefield) { } |
| 479 | 50 | T | F | if $marcprint |
| 480 | 50 | T | F | if $marcprint |
| 483 | 0 | T | F | if $marcprint |
| 484 | 0 | T | F | if $marcprint |
| 485 | 0 | T | F | if $marcprint |
| 500 | 0 | T | F | if (length $clean_title > 0 or length $clean_subtitle > 0 and $intype ne 'unimarc') |
| 505 | 0 | T | F | if (length $clean_subtitle > 0 and $intype ne 'unimarc') |
| 526 | 50 | T | F | if (not $titlefield) { } |
| 527 | 50 | T | F | if $marcprint |
| 530 | 0 | T | F | if $marcprint |
| 535 | 0 | T | F | if (length $clean_title > 0) |
| 539 | 0 | T | F | if ($intype eq 'unimarc') |
| 540 | 0 | T | F | if $marcprint |
| 541 | 0 | T | F | if (length $titlefield->subfield('v') > 0) |
| 555 | 0 | T | F | if (not $isbnfield or length $isbnfield->subfield('a') == 0) { } |
| 556 | 0 | T | F | if $marcprint |
| 557 | 0 | T | F | if $marcprint |
| 560 | 0 | T | F | if (length $isbnfield->subfield('a') < 10) |
| 561 | 0 | T | F | if $marcprint |
| 562 | 0 | T | F | if $marcprint |
| 577 | 0 | T | F | if (not $issnfield or length $issnfield->subfield('a') == 0) { } |
| 578 | 0 | T | F | if $marcprint |
| 579 | 0 | T | F | if $marcprint |
| 582 | 0 | T | F | if (length $issnfield->subfield('a') < 9) |
| 583 | 0 | T | F | if $marcprint |
| 584 | 0 | T | F | if $marcprint |
| 599 | 0 | T | F | if (my $uri = $f856->subfield('u')) |
| 612 | 0 | T | F | if (not $callnofield or length $callnofield->subfield('a') == 0) { } |
| 613 | 0 | T | F | if $marcprint |
| 614 | 0 | T | F | if $marcprint |
| 628 | 0 | T | F | if (not $deweyfield or length $deweyfield->subfield('a') == 0) { } |
| 629 | 0 | T | F | if $marcprint |
| 630 | 0 | T | F | if $marcprint |
| 644 | 0 | T | F | if (not $pubinfofield) { } |
| 645 | 0 | T | F | if $marcprint |
| 646 | 0 | T | F | if $marcprint |
| 674 | 0 | T | F | if ($intype eq 'unimarc') { } |
| 688 | 0 | T | F | if (@$tuple[0] eq $pubsub_place) { } |
| 0 | T | F | elsif (@$tuple[0] eq $pubsub_publisher) { } |
| 0 | T | F | elsif (@$tuple[0] eq $pubsub_date) { } |
| 707 | 0 | T | F | if $marcprint |
| 721 | 0 | T | F | if (index($protoyear, '/') == 4) { } |
| 729 | 0 | T | F | if $marcprint |
| 731 | 0 | T | F | if $marcprint |
| 734 | 0 | T | F | if ($pycounter == 0 and length $protoyear) { } |
| 0 | T | F | elsif ($pycounter == 1 and length $_) { } |
| 746 | 0 | T | F | if (@cities > 0) |
| 749 | 0 | T | F | if (@publishers > 0) |
| 767 | 0 | T | F | if ($kwfield != undef) |
| 769 | 0 | T | F | if ($fieldname eq '600') { } |
| 772 | 0 | T | F | if $marcprint |
| 783 | 0 | T | F | if (@$kwtuple[0] eq $subfield) |
| 786 | 0 | T | F | if (length @$kwtuple[1] > 0) |
| 789 | 0 | T | F | if $marcprint |
| 815 | 0 | T | F | if ($fieldname eq '500') { } |
| 0 | T | F | elsif ($fieldname eq '501') { } |
| 0 | T | F | elsif ($fieldname eq '502') { } |
| 0 | T | F | elsif ($fieldname eq '504') { } |
| 0 | T | F | elsif ($fieldname eq '505') { } |
| 0 | T | F | elsif ($fieldname eq '506') { } |
| 0 | T | F | elsif ($fieldname eq '507') { } |
| 0 | T | F | elsif ($fieldname eq '508') { } |
| 0 | T | F | elsif ($fieldname eq '510') { } |
| 0 | T | F | elsif ($fieldname eq '511') { } |
| 0 | T | F | elsif ($fieldname eq '513') { } |
| 0 | T | F | elsif ($fieldname eq '514') { } |
| 0 | T | F | elsif ($fieldname eq '515') { } |
| 0 | T | F | elsif ($fieldname eq '516') { } |
| 0 | T | F | elsif ($fieldname eq '518') { } |
| 0 | T | F | elsif ($fieldname eq '521') { } |
| 0 | T | F | elsif ($fieldname eq '522') { } |
| 0 | T | F | elsif ($fieldname eq '524') { } |
| 0 | T | F | elsif ($fieldname eq '525') { } |
| 0 | T | F | elsif ($fieldname eq '526') { } |
| 0 | T | F | elsif ($fieldname eq '530') { } |
| 0 | T | F | elsif ($fieldname eq '533') { } |
| 0 | T | F | elsif ($fieldname eq '534') { } |
| 0 | T | F | elsif ($fieldname eq '535') { } |
| 890 | 0 | T | F | if ($notefield != undef) |
| 899 | 0 | T | F | if (@$notetuple[0] eq $subfield) |
| 901 | 0 | T | F | if $marcprint |
| 903 | 0 | T | F | if (length @$notetuple[1] > 0) |
| 932 | 0 | T | F | if (length $abfield->subfield($field) > 0) |
| 935 | 0 | T | F | if $marcprint |
| 948 | 0 | T | F | if (length $allabs > 0) |
| 962 | 50 | T | F | if ($utf) { } |
| 50 | T | F | elsif ($uniout eq 't') { } |