| line | % | coverage | branch |
|---|
| 110 | 50 | T | F | if utf8::is_utf8($str) |
| 135 | 0 | T | F | unless $record and $record->fields |
| 137 | 0 | T | F | if ($field->tag >= 10) |
| 175 | 0 | T | F | unless utf8::is_utf8($string) |
| 176 | 0 | T | F | if ($nfd) { } |
| 182 | 0 | T | F | if ($transform) |
| 218 | 0 | T | F | if (ref $marc eq 'MARC::Record') { } |
| 235 | 0 | T | F | if ($@) |
| 244 | 0 | T | F | if ($@) |
| 258 | 0 | T | F | if (not defined $source_encoding) { } |
| 259 | 0 | T | F | if ($marc_blob_is_utf8) { } |
| 267 | 0 | T | F | if ($marc_flavour eq 'MARC21' or $marc_flavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marc_flavour =~ /UNIMARC/) { } |
| 279 | 0 | T | F | if ($source_encoding =~ /utf-?8/i) { } |
| 0 | T | F | elsif ($source_encoding =~ /marc-?8/i) { } |
| 0 | T | F | elsif ($source_encoding =~ /5426/) { } |
| 280 | 0 | T | F | if ($marc_blob_is_utf8) { } |
| 295 | 0 | T | F | if (@errors) { } |
| 322 | 0 | T | F | if ($marc_flavour eq 'MARC21' or $marc_flavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marc_flavour =~ /UNIMARC/) { } |
| 328 | 0 | T | F | $marc_flavour =~ /AUTH/ ? : |
| 330 | 0 | T | F | if (defined $string and length $string == $subflength) { } |
| 331 | 0 | T | F | if length $string > $subflength |
| 339 | 0 | T | F | if ($marc_record->subfield(100, 'a')) { } |
| 346 | 0 | T | F | if $debug |
| 379 | 0 | T | F | if (not defined $str or $str eq '') |
| 445 | 0 | T | F | unless (@errors) |
| 452 | 0 | T | F | unless (@errors) |
| 487 | 0 | T | F | unless (@errors) |
| 494 | 0 | T | F | unless (@errors) |
| 526 | 0 | T | F | if ($msg =~ /MARC.Charset/) { } |
| 542 | 0 | T | F | if ($field->is_control_field) { } |
| 548 | 0 | T | F | unless (IsStringUTF8ish($utf8sf)) |
| 596 | 0 | T | F | if ($field->is_control_field) { } |
| 639 | 0 | T | F | if ($@) |
| 648 | 0 | T | F | if ($field->is_control_field) { } |
| 656 | 0 | T | F | if ($@) { } |
| 0 | T | F | elsif (not defined $converted_value) { } |
| 664 | 0 | T | F | if ($conversion_ok) { } |
| 705 | 0 | T | F | if ($field->is_control_field) { } |
| 1119 | 0 | T | F | if ($char >= 0 and $char <= 127) { } |
| 0 | T | F | elsif ($char >= 192 and $char <= 223) { } |
| 1122 | 0 | T | F | unless $char < 2 or $char == 15 |
| 1126 | 0 | T | F | if ($chars{$char * 256 + $data[$i + 1]}) { } |
| 0 | T | F | elsif ($chars{$char}) { } |
| 1139 | 0 | T | F | if ($chars{$char}) { } |