Condition Coverage

blib/lib/Locale/Maketext.pm
Criterion Covered Total %
condition 46 100 46.0


and 3 conditions

line !l l&&!r l&&r condition
50 2 0 0 @forms > 2 and $num == 0
77 0 0 2 $num < '10000000000' and $num > '-10000000000'
0 0 2 $num < '10000000000' and $num > '-10000000000' and $num == int $num
90 0 2 0 ref $handle and $handle->{'numf_comma'}
270 0 0 52 defined $handle and defined $phrase
291 1 39 0 not $phrase =~ /^_/s and $handle->{'use_external_lex_cache'} ? exists $handle->{'_external_lex_cache'}{'_AUTO'} ? $handle->{'_external_lex_cache'}{'_AUTO'} : $h_r->{'_AUTO'} : $h_r->{'_AUTO'}
324 0 0 4 ref $handle and $handle->{'fail'}
636 0 3 7 $USE_LITERALS and not $c[-1] =~ /[^\x20-\x7E]/s
701 0 0 37 $m =~ /^\w+$/s and not $handle->{'blacklist'}{$m}
0 12 25 $m =~ /^\w+$/s and not $handle->{'blacklist'}{$m} and not $handle->{'denylist'}{$m}
12 0 25 $m =~ /^\w+$/s and not $handle->{'blacklist'}{$m} and not $handle->{'denylist'}{$m} and !defined($handle->{'whitelist'}) || $handle->{'whitelist'}{$m}
0 25 0 $m =~ /^\w+$/s and not $handle->{'blacklist'}{$m} and not $handle->{'denylist'}{$m} and !defined($handle->{'whitelist'}) || $handle->{'whitelist'}{$m} and !defined($handle->{'allowlist'}) || $handle->{'allowlist'}{$m}
727 0 0 14 $USE_LITERALS and not $p =~ /[^\x20-\x7E]/s
821 0 24 0 @c and length $c[-1]
856 0 0 1 $pos > 2 and -1 == $first_tab || $first_tab > pos $_[0]

or 2 conditions

line l !l condition
117 0 0 ref $it && $it->{'encoding'} || 'iso-8859-1'
222 4 1 $handle->{'failure_lex'} ||= {}

or 3 conditions

line l !l&&r !l&&!r condition
18 0 17 0 exists $INC{'utf8.pm'} or eval { do { local $SIG{'__DIE__'}; require utf8 } }
107 0 0 0 ref $_[0] || $_[0]
225 2 3 0 $lex->{$phrase} ||= $handle->_compile($phrase)
0 5 0 my $value ||= ($lex->{$phrase} ||= $handle->_compile($phrase))
253 0 17 0 ref $_[0] || $_[0]
288 51 0 0 ref $handle or $handle
381 0 17 0 ref $base_class || $base_class
407 0 7 17 $seen{$module_name}++ or not &_try_use($module_name)
518 11 1 6 %{$module . "::Lexicon";} or @{$module . "::ISA";}
546 12 24 0 ref $_[0] || $_[0]
614 42 24 96 $1 eq "[" or $1 eq ""
667 0 0 42 not length $c[-1] or $c[-1] =~ /^\s+$/s
688 0 5 37 $m eq "_*" or $m =~ /^_(-?\d+)$/s
701 25 0 0 !defined($handle->{'whitelist'}) || $handle->{'whitelist'}{$m}
13 0 12 !defined($handle->{'allowlist'}) || $handle->{'allowlist'}{$m}
844 19 0 0 ref $target || $target
856 1 0 0 -1 == $first_tab || $first_tab > pos $_[0]