Condition Coverage

blib/lib/Lingua/ENG/Inflect.pm
Criterion Covered Total %
condition 122 252 48.4


and 2 conditions

line l !l condition
987 7425 8 $word =~ /^(?:$PL_sb_prep_dual_compound)$/i and $value = [$2, $3]

and 3 conditions

line !l l&&!r l&&r condition
75 1700 6 5 @_ == 1 and not $_[0] =~ /$classical_mode/
84 6 0 2546 @_ and not $_[0] =~ /$classical_mode/
860 0 2610 894 not $result and $word1 eq $word2
861 894 1567 1043 not $result and $word1 eq &$PL($word2)
862 1937 524 1043 not $result and &$PL($word1) eq $word2
864 2980 352 172 not $result and $word1 eq &$PL($word2)
865 3152 180 172 not $result and &$PL($word1) eq $word2
870 3264 120 0 not $result and _PL_check_plurals_N($word1, $word2)
872 3264 120 0 not $result and _PL_check_plurals_N($word2, $word1)
877 0 0 0 not $result and _PL_check_plurals_ADJ($word1, $word2, $PL)
929 0 0 0 $word2a and _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
931 0 0 0 $word2b and _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
936 0 0 0 $word2a and _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
938 0 0 0 $word2b and _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
953 214 8042 0 not defined $count and defined $persistent_count
976 2139 5352 42 $classical{'herd'} and $word =~ /^($PL_sb_uninflected_herd)$/i
982 7433 0 58 $word =~ /^(?:$PL_sb_postfix_adj)$/i and $value = $2
993 7303 0 122 $word =~ /^(?:$PL_sb_prep_compound)$/i and $value = $2
1068 3446 0 60 $word =~ /^([A-Z].*s)$/ and $classical{'names'}
1083 2968 4 17 $word =~ /([A-Z].*y)$/ and $classical{'names'}
1102 11 3674 0 not defined $count and defined $persistent_count
1158 0 1654 0 not defined $count and defined $persistent_count
1185 12 1692 0 not defined $count and defined $persistent_count
1262 0 109 0 not defined $count and defined $persistent_count
1265 109 0 0 defined $count and not $count =~ /^($PL_count_one)$/io
1320 4 0 0 not defined $count and defined $persistent_count
1415 28 42 179 $_[0] && $_[1]
1468 1226 0 55 @_ % 2 and require Carp
1477 765 231 230 exists $arg{'threshold'} and $num > $arg{'threshold'}
1514 189 22 828 not $group and $first
1530 944 1 51 $ord and @numchunks

or 2 conditions

line l !l condition
1407 80 1040 $_[0] || 0
1417 11 366 $_[2] or 0

or 3 conditions

line l !l&&r !l&&!r condition
100 0 0 0 not defined $_[1] or $_[1]
124 0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egx or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egx or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egx or s/\bORD \( ([^)]*) \) /&ORD($1);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egx or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egx or s/\bORD \( ([^)]*) \) /&ORD($1);/egx or s/\bNUMWORDS \( ([^)]*) \) /NUMWORDS($1);/egx
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egx or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egx or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egx or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egx or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egx or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egx or s/\bORD \( ([^)]*) \) /&ORD($1);/egx or s/\bNUMWORDS \( ([^)]*) \) /NUMWORDS($1);/egx or s/\bPART_PRES \( ([^)]*) \) /PART_PRES($1);/egx
710 0 0 6 not eval "'' =~ m/$_[0]/; 1;" or $@
722 0 0 6 not eval "qq{$_[1]}; 1;" or $@
811 197 1507 0 _PL_special_adjective($word, $count) || _PL_special_verb($word, $count) || _PL_noun($word, $count)
833 374 1654 0 _PL_special_verb($word, $count) || _PL_general_verb($word, $count)
844 0 0 0 _PL_special_adjective($word, $count) || $word
849 3264 60 60 _PL_eq(@_, \&Lingua::ENG::Inflect::PL_N) or _PL_eq(@_, \&Lingua::ENG::Inflect::PL_V)
868 0 3384 120 $PL == \&Lingua::ENG::Inflect::PL or $PL == \&Lingua::ENG::Inflect::PL_N
875 0 0 3504 $PL == \&Lingua::ENG::Inflect::PL or $PL == \&Lingua::ENG::Inflect::PL_ADJ
895 0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i") or _PL_reg_plurals($pair, $PL_sb_C_im, "s", "im")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i") or _PL_reg_plurals($pair, $PL_sb_C_im, "s", "im") or _PL_reg_plurals($pair, ".*eau", "s", "x")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i") or _PL_reg_plurals($pair, $PL_sb_C_im, "s", "im") or _PL_reg_plurals($pair, ".*eau", "s", "x") or _PL_reg_plurals($pair, ".*ieu", "s", "x")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i") or _PL_reg_plurals($pair, $PL_sb_C_im, "s", "im") or _PL_reg_plurals($pair, ".*eau", "s", "x") or _PL_reg_plurals($pair, ".*ieu", "s", "x") or _PL_reg_plurals($pair, ".*tri", "xes", "ces")
0 0 240 _PL_reg_plurals($pair, $PL_sb_C_a_ata, "as", "ata") or _PL_reg_plurals($pair, $PL_sb_C_is_ides, "is", "ides") or _PL_reg_plurals($pair, $PL_sb_C_a_ae, "s", "e") or _PL_reg_plurals($pair, $PL_sb_C_en_ina, "ens", "ina") or _PL_reg_plurals($pair, $PL_sb_C_um_a, "ums", "a") or _PL_reg_plurals($pair, $PL_sb_C_us_i, "uses", "i") or _PL_reg_plurals($pair, $PL_sb_C_on_a, "ons", "a") or _PL_reg_plurals($pair, $PL_sb_C_o_i, "os", "i") or _PL_reg_plurals($pair, $PL_sb_C_ex_ices, "exes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_ix_ices, "ixes", "ices") or _PL_reg_plurals($pair, $PL_sb_C_i, "s", "i") or _PL_reg_plurals($pair, $PL_sb_C_im, "s", "im") or _PL_reg_plurals($pair, ".*eau", "s", "x") or _PL_reg_plurals($pair, ".*ieu", "s", "x") or _PL_reg_plurals($pair, ".*tri", "xes", "ces") or _PL_reg_plurals($pair, ".{2,}[yia]n", "xes", "ges")
929 0 0 0 _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
931 0 0 0 _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
936 0 0 0 _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
938 0 0 0 _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
958 0 6 8250 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1013 332 0 0 $PL_sb_irregular{$2} || $PL_sb_irregular{lc $2}
1105 0 0 3685 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1161 0 0 1654 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1188 3 1 1700 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1335 0 0 6 s/ie$/y/ or s/ue$/u/
0 0 6 s/ie$/y/ or s/ue$/u/ or s/([auy])e$/$1/
0 1 5 s/ie$/y/ or s/ue$/u/ or s/([auy])e$/$1/ or s/ski$/ski/
1 0 5 s/ie$/y/ or s/ue$/u/ or s/([auy])e$/$1/ or s/ski$/ski/ or s/i$//
1 1 4 s/ie$/y/ or s/ue$/u/ or s/([auy])e$/$1/ or s/ski$/ski/ or s/i$// or s/([^e])e$/$1/
1 0 4 s/ie$/y/ or s/ue$/u/ or s/([auy])e$/$1/ or s/ski$/ski/ or s/i$// or s/([^e])e$/$1/ or /er$/
1380 45 37 0 $nth{$num % 100} || $nth{$num % 10}
1422 82 7 15 $_[1] || $_[2]
1424 6 6 12 $_[1] or $_[2]
1509 189 828 22 $group || $first