Condition Coverage

blib/lib/Lingua/ENG/Inflect.pm
Criterion Covered Total %
condition 117 252 46.4


and 2 conditions

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

and 3 conditions

line !l l&&!r l&&r condition
76 1700 6 5 @_ == 1 and not $_[0] =~ /$classical_mode/
85 6 0 2546 @_ and not $_[0] =~ /$classical_mode/
861 0 2610 894 not $result and $word1 eq $word2
862 894 1567 1043 not $result and $word1 eq &$PL($word2)
863 1937 524 1043 not $result and &$PL($word1) eq $word2
865 2980 352 172 not $result and $word1 eq &$PL($word2)
866 3152 180 172 not $result and &$PL($word1) eq $word2
871 3264 120 0 not $result and _PL_check_plurals_N($word1, $word2)
873 3264 120 0 not $result and _PL_check_plurals_N($word2, $word1)
878 0 0 0 not $result and _PL_check_plurals_ADJ($word1, $word2, $PL)
930 0 0 0 $word2a and _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
932 0 0 0 $word2b and _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
937 0 0 0 $word2a and _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
939 0 0 0 $word2b and _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
954 214 8042 0 not defined $count and defined $persistent_count
977 2139 5352 42 $classical{'herd'} and $word =~ /^($PL_sb_uninflected_herd)$/i
983 7433 0 58 $word =~ /^(?:$PL_sb_postfix_adj)$/i and $value = $2
994 7303 0 122 $word =~ /^(?:$PL_sb_prep_compound)$/i and $value = $2
1069 3446 0 60 $word =~ /^([A-Z].*s)$/ and $classical{'names'}
1084 2968 4 17 $word =~ /([A-Z].*y)$/ and $classical{'names'}
1103 11 3674 0 not defined $count and defined $persistent_count
1159 0 1654 0 not defined $count and defined $persistent_count
1186 12 1692 0 not defined $count and defined $persistent_count
1263 0 109 0 not defined $count and defined $persistent_count
1266 109 0 0 defined $count and not $count =~ /^($PL_count_one)$/io
1321 4 0 0 not defined $count and defined $persistent_count
1416 28 221 0 $_[0] && $_[1]
1469 1226 0 55 @_ % 2 and require Carp
1478 765 231 230 exists $arg{'threshold'} and $num > $arg{'threshold'}
1515 189 22 828 not $group and $first
1531 944 1 51 $ord and @numchunks

or 2 conditions

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

or 3 conditions

line l !l&&r !l&&!r condition
101 0 0 0 not defined $_[1] or $_[1]
125 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
711 0 0 6 not eval "'' =~ m/$_[0]/; 1;" or $@
723 0 0 6 not eval "qq{$_[1]}; 1;" or $@
812 197 1507 0 _PL_special_adjective($word, $count) || _PL_special_verb($word, $count) || _PL_noun($word, $count)
834 374 1654 0 _PL_special_verb($word, $count) || _PL_general_verb($word, $count)
845 0 0 0 _PL_special_adjective($word, $count) || $word
850 3264 60 60 _PL_eq(@_, \&PL_N) or _PL_eq(@_, \&PL_V)
869 0 3384 120 $PL == \&PL or $PL == \&PL_N
876 0 0 3504 $PL == \&PL or $PL == \&PL_ADJ
896 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')
930 0 0 0 _PL_check_plurals_N($word1a, $word2a) || _PL_check_plurals_N($word2a, $word1a)
932 0 0 0 _PL_check_plurals_N($word1a, $word2b) || _PL_check_plurals_N($word2b, $word1a)
937 0 0 0 _PL_check_plurals_N($word1b, $word2a) || _PL_check_plurals_N($word2a, $word1b)
939 0 0 0 _PL_check_plurals_N($word1b, $word2b) || _PL_check_plurals_N($word2b, $word1b)
957 0 0 8256 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1012 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 0 1701 defined $count && $count =~ /^($PL_count_one)$/io || defined $count && $classical{'zero'} && $count =~ /^($PL_count_zero)$/io
1336 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$/
1381 45 37 0 $nth{$num % 100} || $nth{$num % 10}
1423 82 0 22 $_[1] || $_[2]
1425 6 0 18 $_[1] or $_[2]
1510 189 828 22 $group || $first