| line | % | coverage | branch |
|---|
| 109 | 50 | T | F | if utf8::is_utf8($str) |
| 134 | 0 | T | F | unless $record and $record->fields |
| 136 | 0 | T | F | if ($field->tag >= 10) |
| 174 | 0 | T | F | unless utf8::is_utf8($string) |
| 175 | 0 | T | F | if ($nfd) { } |
| 181 | 0 | T | F | if ($transform) |
| 217 | 0 | T | F | if (ref $marc eq 'MARC::Record') { } |
| 234 | 0 | T | F | if ($@) |
| 243 | 0 | T | F | if ($@) |
| 257 | 0 | T | F | if (not defined $source_encoding) { } |
| 258 | 0 | T | F | if ($marc_blob_is_utf8) { } |
| 266 | 0 | T | F | if ($marc_flavour eq 'MARC21' or $marc_flavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marc_flavour =~ /UNIMARC/) { } |
| 278 | 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/) { } |
| 279 | 0 | T | F | if ($marc_blob_is_utf8) { } |
| 294 | 0 | T | F | if (@errors) { } |
| 321 | 0 | T | F | if ($marc_flavour eq 'MARC21' or $marc_flavour eq 'NORMARC') { } |
| 0 | T | F | elsif ($marc_flavour =~ /UNIMARC/) { } |
| 327 | 0 | T | F | $marc_flavour =~ /AUTH/ ? : |
| 329 | 0 | T | F | if (defined $string and length $string == $subflength) { } |
| 330 | 0 | T | F | if length $string > $subflength |
| 338 | 0 | T | F | if ($marc_record->subfield(100, 'a')) { } |
| 345 | 0 | T | F | if $debug |
| 378 | 0 | T | F | if (not defined $str or $str eq '') |
| 410 | 0 | T | F | unless (@errors) |
| 417 | 0 | T | F | unless (@errors) |
| 452 | 0 | T | F | unless (@errors) |
| 459 | 0 | T | F | unless (@errors) |
| 491 | 0 | T | F | if ($msg =~ /MARC.Charset/) { } |
| 507 | 0 | T | F | if ($field->is_control_field) { } |
| 513 | 0 | T | F | unless (IsStringUTF8ish($utf8sf)) |
| 561 | 0 | T | F | if ($field->is_control_field) { } |
| 604 | 0 | T | F | if ($@) |
| 613 | 0 | T | F | if ($field->is_control_field) { } |
| 621 | 0 | T | F | if ($@) { } |
| 0 | T | F | elsif (not defined $converted_value) { } |
| 629 | 0 | T | F | if ($conversion_ok) { } |
| 670 | 0 | T | F | if ($field->is_control_field) { } |
| 1084 | 0 | T | F | if ($char >= 0 and $char <= 127) { } |
| 0 | T | F | elsif ($char >= 192 and $char <= 223) { } |
| 1087 | 0 | T | F | unless $char < 2 or $char == 15 |
| 1091 | 0 | T | F | if ($chars{$char * 256 + $data[$i + 1]}) { } |
| 0 | T | F | elsif ($chars{$char}) { } |
| 1104 | 0 | T | F | if ($chars{$char}) { } |