| line | % | coverage | branch |
|---|
| 337 | 100 | T | F | unless defined $raw |
| 339 | 100 | T | F | ref $raw eq 'ARRAY' ? : |
| 370 | 100 | T | F | if $FILTER{lc $occupation} |
| 373 | 100 | T | F | if ($occupation =~ /$pattern/u) |
| 378 | 100 | T | F | if $filtered |
| 382 | 100 | T | F | unless length $occupation |
| 386 | 100 | T | F | if lc $last_normalised eq lc $occupation |
| 390 | 100 | T | F | if ($language eq "en") |
| 395 | 100 | T | F | if ($language eq 'fr') { } |
| 100 | T | F | elsif ($language eq 'de') { } |
| 435 | 100 | T | F | if (my $match = $DIRECT{lc $occupation}) |
| 440 | 100 | T | F | if ($occupation =~ /$GENERAL_SERVANT_RE/u) |
| 453 | 100 | T | F | if ($occupation =~ /^(.+)\s(?:domestic|dom)$/iu) |
| 458 | 100 | T | F | if ($occupation =~ /works?\s+(?:on|for)\s+(.+)/iu) |
| 463 | 100 | T | F | if ($occupation =~ /^Cleaner\s+(.+)/iu) |
| 468 | 100 | T | F | if ($occupation =~ /^Clerk\s+(.+)/iu) |
| 471 | 100 | T | F | if ($occupation =~ /^Salesman\s+(.*)/iu) |
| 474 | 100 | T | F | if ($occupation =~ /^Foreman\s+(.*)/iu) |
| 479 | 100 | T | F | if ($occupation =~ /^Manager\s+(.*)/iu and not $occupation =~ /^Manager of /iu and not $occupation =~ /Manager & /iu) |
| 486 | 100 | T | F | if ($occupation =~ /^Shop Assistant\s+(.+)/iu) |
| 491 | 100 | T | F | if ($occupation =~ /^(.+)\s+Assistant$/iu) |
| 493 | 100 | T | F | if (lc $trade eq "bakers") |
| 496 | 100 | T | F | if (lc $trade eq "butchers") |
| 499 | 100 | T | F | unless ($trade =~ /'s$/u or lc $trade eq "shop") |
| 505 | 100 | T | F | if ($occupation =~ /police$/iu) |
| 522 | 100 | T | F | if (not $occupation =~ /gas works/iu and $occupation =~ /^(.+([a-z]))s\s+([a-z]+)$/iu) |
| 525 | 100 | T | F | unless (lc $base eq "bu" or lc $base eq "harnes") |
| 531 | 100 | T | F | if ($occupation =~ /^(.+)\s+on farm$/iu) |
| 565 | 100 | T | F | if (defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^en_US/u) |
| 572 | 100 | T | F | if (defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^en_CA/u) |
| 608 | 100 | T | F | if ($occupation =~ /teaching/iu) |
| 616 | 100 | T | F | if ($occupation =~ /^(.+)\sFarmer$/iu) |
| 618 | 100 | T | F | $sex eq 'F' ? : |
| 624 | 100 | T | F | if (my $translation = $FRENCH{lc $occupation}) |
| 625 | 100 | T | F | if (ref $translation eq "HASH") |
| 632 | 100 | T | F | if ($warn_on_error) |
| 666 | 100 | T | F | if ($occupation =~ /teaching/iu) |
| 667 | 100 | T | F | $sex eq 'F' ? : |
| 671 | 100 | T | F | if ($occupation =~ /^(.+)\sFarmer$/iu) |
| 672 | 100 | T | F | $sex eq 'F' ? : |
| 680 | 100 | T | F | if (my $translation = $GERMAN{lc $occupation}) |
| 681 | 100 | T | F | if (ref $translation eq "HASH") |
| 688 | 100 | T | F | if ($warn_on_error) |
| 719 | 100 | T | F | if ($tag =~ /^([a-z]{2})/iu) |
| 725 | 100 | T | F | if ($ENV{'LANGUAGE'} and $ENV{'LANGUAGE'} =~ /^([a-z]{2})/iu) |
| 730 | 100 | T | F | unless defined $val |
| 731 | 100 | T | F | if ($val =~ /^([a-z]{2})/iu) |
| 737 | 100 | T | F | if defined $ENV{'LANG'} and $ENV{'LANG'} =~ /^C(\.|$)/u |