| line |
true |
false |
branch |
|
33
|
0 |
48 |
if ($$conf_hr{'encode_unicode_slash_x'}) |
|
34
|
0 |
0 |
unless Module::Want::have_mod('Encode') |
|
37
|
1 |
47 |
if ($$conf_hr{'cpanel_mode'} and $$conf_hr{'cpanel_mode'} != 0) |
|
47
|
2 |
3 |
$$conf_hr{'no_default_regex'} ? : |
|
|
5 |
43 |
$$conf_hr{'regexp_conf'} ? : |
|
62
|
3 |
449 |
if ($matched eq '## no extract maketext') |
|
73
|
6 |
443 |
if $text_working_copy =~ s/^[^\n]*## no extract maketext[^\n]*// |
|
80
|
6 |
437 |
if ($$conf_hr{'ignore_perlish_comments'}) |
|
83
|
2 |
4 |
if ($pre =~ /\#/ and not $pre =~ /[\n\r]$/) |
|
86
|
1 |
1 |
if ($lines[-1] =~ /\#/) |
|
88
|
0 |
1 |
if defined $linenum |
|
96
|
4 |
438 |
if ($text_working_copy =~ /^\s*\{/) |
|
98
|
0 |
4 |
if defined $linenum |
|
104
|
2 |
436 |
if ($text_working_copy =~ /^\s*=/) |
|
106
|
0 |
2 |
if defined $linenum |
|
111
|
3 |
433 |
if ($$conf_hr{'ignore_perlish_statement'}) |
|
114
|
1 |
2 |
if ($text_working_copy =~ /^\s*;/) |
|
116
|
0 |
1 |
if defined $linenum |
|
124
|
405 |
30 |
if (not $phrase) { } |
|
129
|
0 |
405 |
unless defined $text_working_copy |
|
131
|
169 |
147 |
if defined $opener and $opener eq q['] or defined $type and $type eq 'q' || $type eq 'qw' |
|
132
|
83 |
322 |
if defined $opener and $opener eq '"' or defined $type and $type eq 'qq' |
|
133
|
252 |
153 |
if ($$result_hr{'quotetype'}) |
|
138
|
22 |
383 |
if (defined $type and $type eq '<<') |
|
143
|
19 |
3 |
if (substr($opener, 0, 1) eq q[']) { } |
|
151
|
30 |
375 |
if (defined $inside and exists $$result_hr{'quotetype'} and $inside eq '') { } |
|
|
286 |
89 |
elsif (defined $inside and $inside) { } |
|
|
0 |
89 |
elsif (defined $opener and defined $inside and defined $closer and defined $phrase and $phrase eq "$opener$inside$closer") { } |
|
159
|
21 |
265 |
if ($type eq 'qw') { } |
|
|
12 |
253 |
elsif ($type eq 'qx' or $opener eq '`') { } |
|
|
30 |
223 |
elsif ($type eq 'm' or $type eq 'qr' or $type eq 's' or $type eq 'tr' or $opener eq '/') { } |
|
160
|
2 |
19 |
if ($phrase =~ /\A(\s+)/) |
|
164
|
2 |
19 |
if ($phrase =~ /(\s+)\z/) |
|
169
|
19 |
2 |
if ($phrase =~ /(\s+)/) |
|
193
|
89 |
0 |
if (defined $$regexp[1]) |
|
194
|
89 |
0 |
if (ref $$regexp[1] eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $$regexp[1] eq 'Regexp') { } |
|
196
|
37 |
52 |
if ($text_working_copy =~ /^$rgx/) |
|
202
|
0 |
0 |
if ($text_working_copy =~ /$rgx/) |
|
208
|
37 |
52 |
if ($is_no_arg) { } |
|
|
40 |
12 |
elsif ($text_working_copy =~ /^\s*(((?:\&|\\\*)?)$ns_regexp(?:\-\>$ns_regexp)?((?:\s*\()?))/o) { } |
|
214
|
18 |
22 |
$2 || $3 ? : |
|
219
|
18 |
22 |
$perlish ? : |
|
228
|
49 |
386 |
if (not defined $phrase) { } |
|
230
|
49 |
0 |
if (defined $$regexp[1]) |
|
231
|
49 |
0 |
if (ref $$regexp[1] eq 'CODE') { } |
|
|
0 |
0 |
elsif (ref $$regexp[1] eq 'Regexp') { } |
|
233
|
37 |
12 |
if ($text_working_copy =~ /^$rgx/) |
|
239
|
0 |
0 |
if ($text_working_copy =~ /$rgx/) |
|
245
|
37 |
12 |
if ($is_no_arg) { } |
|
260
|
34 |
352 |
if ($var and defined $for and defined $aft and $for =~ /\A\s*\z/ and $aft =~ /\A\s*\z/) { } |
|
265
|
270 |
82 |
if (exists $$result_hr{'quotetype'}) |
|
266
|
186 |
84 |
if ($$result_hr{'quotetype'} eq 'single') { } |
|
|
84 |
0 |
elsif ($$result_hr{'quotetype'} eq 'double') { } |
|
278
|
0 |
352 |
if ($$conf_hr{'encode_unicode_slash_x'}) { } |
|
291
|
334 |
18 |
unless exists $$result_hr{'type'} and $$result_hr{'type'} eq 'perlish' |
|
297
|
435 |
0 |
if ++$offset_seen{$$result_hr{'offset'}} == 1 |
|
307
|
0 |
1 |
unless open my $fh, '<', $file |
|
319
|
6 |
3 |
$in_multi_line ? : |
|
322
|
0 |
12 |
if ($in_multi_line and $updated_result_count == $initial_result_count) { } |
|
|
4 |
8 |
elsif ($in_multi_line and $updated_result_count > $initial_result_count and $results[-1]{'type'}) { } |
|
|
2 |
6 |
elsif (not $in_multi_line and @results and defined $results[-1]{'type'} and $results[-1]{'type'} eq 'multiline') { } |
|
336
|
0 |
2 |
$$trailing_partial{'offset'} > &bytes::length($prepend . $line) ? : |