Condition Coverage

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


and 2 conditions

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

and 3 conditions

line !l l&&!r l&&r condition
77 1700 6 5 @_ == 1 and not $_[0] =~ /$classical_mode/u
86 6 0 2546 @_ and not $_[0] =~ /$classical_mode/u
855 0 2610 894 not $result and $word1 eq $word2
856 894 1567 1043 not $result and $word1 eq &$PL($word2)
857 1937 524 1043 not $result and &$PL($word1) eq $word2
859 2980 352 172 not $result and $word1 eq &$PL($word2)
860 3152 180 172 not $result and &$PL($word1) eq $word2
865 3264 120 0 not $result and _PL_check_plurals_N($word1, $word2)
867 3264 120 0 not $result and _PL_check_plurals_N($word2, $word1)
872 0 0 0 not $result and _PL_check_plurals_ADJ($word1, $word2, $PL)
923 0 0 0 $word2a and _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
925 0 0 0 $word2b and _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
930 0 0 0 $word2a and _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
932 0 0 0 $word2b and _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
946 214 8042 0 not defined $count and defined $persistent_count
968 2139 5352 42 $classical{'herd'} and $word =~ /^($PL_sb_uninflected_herd)$/iu
973 7433 0 58 $word =~ /^(?:$PL_sb_postfix_adj)$/iu and $value = $2
984 7303 0 122 $word =~ /^(?:$PL_sb_prep_compound)$/iu and $value = $2
1058 3446 0 60 $word =~ /^([A-Z].*s)$/u and $classical{'names'}
1073 2968 4 17 $word =~ /([A-Z].*y)$/u and $classical{'names'}
1090 11 3674 0 not defined $count and defined $persistent_count
1146 0 1654 0 not defined $count and defined $persistent_count
1173 12 1692 0 not defined $count and defined $persistent_count
1248 0 109 0 not defined $count and defined $persistent_count
1251 109 0 0 defined $count and not $count =~ /^($PL_count_one)$/iou
1305 4 0 0 not defined $count and defined $persistent_count
1394 28 42 179 $_[0] && $_[1]
1446 1226 0 55 @_ % 2 and require Carp
1455 765 231 230 exists $arg{'threshold'} and $num > $arg{'threshold'}
1492 189 22 828 not $group and $first
1508 944 1 51 $ord and @numchunks

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
102 0 0 0 not defined $_[1] or $_[1]
125 0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egux or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egux or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egux or s/\bORD \( ([^)]*) \) /&ORD($1);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egux or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egux or s/\bORD \( ([^)]*) \) /&ORD($1);/egux or s/\bNUMWORDS \( ([^)]*) \) /NUMWORDS($1);/egux
0 0 0 s/\bPL \( ([^),]*) (, ([^)]*) )? \) /PL($1, $3);/egux or s/\bPL_N \( ([^),]*) (, ([^)]*) )? \) /PL_N($1, $3);/egux or s/\bPL_V \( ([^),]*) (, ([^)]*) )? \) /PL_V($1, $3);/egux or s/\bPL_ADJ \( ([^),]*) (, ([^)]*) )? \) /PL_ADJ($1, $3);/egux or s/\bAN? \( ([^),]*) (, ([^)]*) )? \) /A($1, $3);/egux or s/\bNO \( ([^),]*) (, ([^)]*) )? \) /NO($1, $3);/egux or s/\bORD \( ([^)]*) \) /&ORD($1);/egux or s/\bNUMWORDS \( ([^)]*) \) /NUMWORDS($1);/egux or s/\bPART_PRES \( ([^)]*) \) /PART_PRES($1);/egux
705 0 0 6 not eval "'' =~ m/$_[0]/; 1;" or $@
717 0 0 6 not eval "qq{$_[1]}; 1;" or $@
806 197 1507 0 _PL_special_adjective($word, $count) || _PL_special_verb($word, $count) || _PL_noun($word, $count)
828 374 1654 0 _PL_special_verb($word, $count) || _PL_general_verb($word, $count)
839 0 0 0 _PL_special_adjective($word, $count) || $word
844 3264 60 60 _PL_eq(@_, \&Lingua::ENG::Inflect::PL_N) or _PL_eq(@_, \&Lingua::ENG::Inflect::PL_V)
863 0 3384 120 $PL == \&Lingua::ENG::Inflect::PL or $PL == \&Lingua::ENG::Inflect::PL_N
870 0 0 3504 $PL == \&Lingua::ENG::Inflect::PL or $PL == \&Lingua::ENG::Inflect::PL_ADJ
890 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")
923 0 0 0 _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
925 0 0 0 _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
930 0 0 0 _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
932 0 0 0 _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
951 0 6 8250 defined $count && $count =~ /^($PL_count_one)$/iou || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/iou
1004 332 0 0 $PL_sb_irregular{$2} || $PL_sb_irregular{lc $2}
1093 0 0 3685 defined $count && $count =~ /^($PL_count_one)$/iou || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/iou
1149 0 0 1654 defined $count && $count =~ /^($PL_count_one)$/iou || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/iou
1176 3 1 1700 defined $count && $count =~ /^($PL_count_one)$/iou || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/iou
1319 0 0 6 s/ie$/y/u or s/ue$/u/u
0 0 6 s/ie$/y/u or s/ue$/u/u or s/([auy])e$/$1/u
0 1 5 s/ie$/y/u or s/ue$/u/u or s/([auy])e$/$1/u or s/ski$/ski/u
1 0 5 s/ie$/y/u or s/ue$/u/u or s/([auy])e$/$1/u or s/ski$/ski/u or s/i$//u
1 1 4 s/ie$/y/u or s/ue$/u/u or s/([auy])e$/$1/u or s/ski$/ski/u or s/i$//u or s/([^e])e$/$1/u
1 0 4 s/ie$/y/u or s/ue$/u/u or s/([auy])e$/$1/u or s/ski$/ski/u or s/i$//u or s/([^e])e$/$1/u or /er$/u
1361 45 37 0 $nth{$num % 100} || $nth{$num % 10}
1401 82 7 15 $_[1] || $_[2]
1403 6 6 12 $_[1] or $_[2]
1487 189 828 22 $group || $first