| line |
true |
false |
branch |
|
10
|
17 |
0 |
unless (defined &Locale::Maketext::DEBUG) |
|
18
|
17 |
0 |
if (exists $INC{'utf8.pm'} or eval {
do {
local $SIG{'__DIE__'};
require utf8
}
}) { } |
|
49
|
0 |
2 |
if @forms == 0 |
|
50
|
0 |
2 |
if @forms > 2 and $num == 0 |
|
64
|
0 |
0 |
unless @forms |
|
65
|
0 |
0 |
if (@forms == 1) { } |
|
66
|
0 |
0 |
$s ? : |
|
69
|
0 |
0 |
$s ? : |
|
77
|
2 |
0 |
if ($num < 10000000000 and $num > -10000000000 and $num == int $num) { } |
|
90
|
0 |
2 |
if ref $handle and $handle->{'numf_comma'} |
|
108
|
0 |
0 |
unless $it =~ /([^':]+)(?:::)?$/s |
|
132
|
0 |
1 |
unless ref $handle |
|
133
|
1 |
0 |
if @params |
|
142
|
17 |
23 |
unless (defined $handle->{'denylist'}) |
|
170
|
6 |
34 |
if (scalar @methods) |
|
192
|
6 |
0 |
if (scalar @methods) |
|
193
|
2 |
4 |
unless defined $handle->{'allowlist'} |
|
228
|
3 |
2 |
if ref $value eq "SCALAR" |
|
229
|
0 |
2 |
if ref $value ne "CODE" |
|
236
|
1 |
1 |
if ($@) { } |
|
267
|
0 |
52 |
unless @_ > 1 |
|
270
|
0 |
52 |
unless defined $handle and defined $phrase |
|
282
|
1 |
51 |
if (exists $handle->{'_external_lex_cache'}{$phrase}) { } |
|
288
|
12 |
39 |
unless $isa_scan{ref $handle or $handle} |
|
291
|
0 |
33 |
exists $handle->{'_external_lex_cache'}{'_AUTO'} ? : |
|
|
33 |
6 |
$handle->{'use_external_lex_cache'} ? : |
|
|
11 |
40 |
if (exists $h_r->{$phrase}) { } |
|
|
36 |
4 |
elsif (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'}) { } |
|
293
|
11 |
0 |
unless (ref($value = $h_r->{$phrase})) |
|
295
|
1 |
10 |
if ($handle->{'use_external_lex_cache'}) { } |
|
309
|
33 |
3 |
if ($handle->{'use_external_lex_cache'}) { } |
|
322
|
4 |
29 |
unless (defined $value) |
|
324
|
4 |
0 |
if (ref $handle and $handle->{'fail'}) { } |
|
327
|
0 |
4 |
if (ref($fail = $handle->{'fail'}) eq 'CODE') { } |
|
344
|
6 |
23 |
if (ref $value eq "SCALAR") |
|
348
|
0 |
23 |
if (ref $value ne "CODE") |
|
359
|
0 |
23 |
if ($@) { } |
|
384
|
11 |
6 |
if (@languages) { } |
|
386
|
11 |
0 |
if ($USING_LANGUAGE_TAGS) |
|
406
|
0 |
24 |
unless length $module_name |
|
407
|
7 |
17 |
if $seen{$module_name}++ or not &_try_use($module_name) |
|
425
|
17 |
0 |
if ($USING_LANGUAGE_TAGS) { } |
|
476
|
0 |
60 |
if (not $MATCH_SUPERS) { } |
|
|
42 |
18 |
elsif ($MATCH_SUPERS_TIGHTLY) { } |
|
512
|
8 |
18 |
if exists $tried{$_[0]} |
|
518
|
12 |
6 |
if %{$module . "::Lexicon";} or @{$module . "::ISA";} |
|
527
|
2 |
4 |
if $INC[-1] eq "." |
|
530
|
5 |
1 |
if ($@) { } |
|
548
|
0 |
36 |
if exists $isa_scan{$class} |
|
551
|
24 |
12 |
ref $_[1] ? : |
|
553
|
18 |
18 |
if (defined *{$class . "::Lexicon";}{"HASH"}) |
|
563
|
0 |
24 |
if $seen_r->{$superclass}++ |
|
585
|
8 |
43 |
unless $string_to_compile =~ /[\[~\]]/ms |
|
614
|
66 |
96 |
if ($1 eq '[' or $1 eq '') { } |
|
|
43 |
53 |
elsif ($1 eq ']') { } |
|
|
53 |
0 |
elsif (substr($1, 0, 1) ne '~') { } |
|
|
0 |
0 |
elsif ($1 eq '~~') { } |
|
|
0 |
0 |
elsif ($1 eq '~[') { } |
|
|
0 |
0 |
elsif ($1 eq '~]') { } |
|
|
0 |
0 |
elsif ($1 eq '~,') { } |
|
|
0 |
0 |
elsif ($1 eq '~') { } |
|
617
|
0 |
66 |
if ($in_group) { } |
|
618
|
0 |
0 |
if ($1 eq '') { } |
|
626
|
24 |
42 |
if ($1 eq '') { } |
|
632
|
0 |
66 |
unless @c |
|
633
|
10 |
56 |
if (length $c[-1]) |
|
636
|
7 |
3 |
if ($USE_LITERALS and not $c[-1] =~ /[^\x20-\x7E]/s) { } |
|
660
|
42 |
1 |
if ($in_group) { } |
|
667
|
0 |
42 |
if (not length $c[-1] or $c[-1] =~ /^\s+$/s) |
|
688
|
5 |
37 |
if ($m eq '_*' or $m =~ /^_(-?\d+)$/s) { } |
|
|
1 |
36 |
elsif ($m eq '*') { } |
|
|
0 |
36 |
elsif ($m eq '#') { } |
|
701
|
5 |
37 |
if ($m eq '') { } |
|
|
19 |
18 |
elsif ($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 |
24 |
if ($p eq '_*') { } |
|
|
10 |
14 |
elsif ($p =~ /^_(-?\d+)$/s) { } |
|
|
14 |
0 |
elsif ($USE_LITERALS and not $p =~ /[^\x20-\x7E]/s) { } |
|
783
|
0 |
0 |
if ($in_group) { } |
|
812
|
24 |
0 |
if ($call_count) { } |
|
821
|
0 |
24 |
if @c and length $c[-1] |
|
823
|
0 |
24 |
if (@code == 0) { } |
|
|
10 |
14 |
elsif (@code > 1) { } |
|
835
|
0 |
24 |
if $@ |
|
850
|
18 |
1 |
defined $_[2] ? : |
|
851
|
18 |
1 |
if ($pos < 1) { } |
|
856
|
1 |
0 |
if ($pos > 2 and -1 == $first_tab || $first_tab > pos $_[0]) { } |
|
872
|
19 |
0 |
if ($i == -1) { } |
|
|
0 |
0 |
elsif ($i == length($_[0]) - 1) { } |