| line |
true |
false |
branch |
|
59
|
14 |
20 |
defined $name ? : |
|
62
|
1 |
33 |
unless (-f $file) |
|
69
|
0 |
33 |
unless (open $fh, '<:raw', $file) |
|
82
|
2 |
2633 |
if ($n == 1 and $line =~ /^\x{EF}\x{BB}\x{BF}/x) { } |
|
|
11 |
2622 |
elsif ($line =~ /^=+cut\s*$/x) { } |
|
|
14 |
2608 |
elsif ($line =~ /^=+encoding\s+([\w\-]+)/x) { } |
|
|
216 |
2392 |
elsif ($line =~ /^=+\w+/x) { } |
|
|
1185 |
1207 |
elsif ($pod == 0) { } |
|
95
|
2 |
12 |
if (1 < scalar keys %pod) |
|
101
|
8 |
4 |
$pod_encoding eq 'utf8' ? : |
|
116
|
6 |
1649 |
if (/^use\s+utf8(?:::all)?$/x) { } |
|
|
1 |
1648 |
elsif (/^use\s+common::sense$/x) { } |
|
|
2 |
1646 |
elsif (/^no\s+utf8$/x) { } |
|
124
|
2 |
1653 |
if ($use_utf8 == 0 and $utf8) { } |
|
|
2 |
3268 |
elsif ($use_utf8 == 1 and $latin1) { } |
|
140
|
2 |
1205 |
if ($pod_utf8 == 0 and $utf8) { } |
|
|
2 |
1876 |
elsif ($pod_utf8 == 1 and $latin1) { } |
|
162
|
1 |
4 |
unless @args |
|
165
|
9 |
2 |
-f $_ ? : |
|
|
2 |
11 |
-d $_ ? : |
|
167
|
1 |
4 |
unless (@files) |
|
176
|
6 |
14 |
unless file_encoding_ok($file) |
|
184
|
1 |
2 |
unless @queue |
|
189
|
29 |
30 |
if (-d $file) |
|
190
|
0 |
29 |
unless opendir my $dh, $file |
|
199
|
30 |
26 |
if (not -d $filename) { } |
|
208
|
30 |
29 |
if (-f $file) |
|
209
|
13 |
17 |
if _is_perl($file) |
|
216
|
2 |
0 |
if -e 'blib' |
|
223
|
1 |
29 |
if $file =~ /\.PL$/x |
|
224
|
7 |
22 |
if $file =~ /\.p(?:l|m|od)$/x |
|
225
|
0 |
22 |
if $file =~ /\.t$/x |
|
227
|
0 |
22 |
unless open my $fh, '<', $file |
|
231
|
5 |
17 |
if defined $first and $first =~ /(?:^\#!.*perl)|--\*-Perl-\*--/x |
|
244
|
108072 |
1832 |
if ($use_xs) { } |
|
|
0 |
1832 |
elsif ($use_pp) { } |
|
245
|
72990 |
35082 |
if (Unicode::CheckUTF8::is_utf8(${$str;})) { } |
|
246
|
35080 |
37910 |
${$str;} =~ /[\x{80}-\x{ff}]/x ? : |
|
251
|
0 |
0 |
if (Unicode::CheckUTF8::PP::is_utf8(${$str;})) { } |
|
252
|
0 |
0 |
${$str;} =~ /[\x{80}-\x{ff}]/x ? : |
|
266
|
9100 |
267281 |
if ($c >= 128) { } |
|
|
2 |
267279 |
elsif ($c == 0) { } |
|
269
|
1 |
9099 |
if ($c >= 254) { } |
|
|
1 |
9098 |
elsif ($c >= 252) { } |
|
|
1 |
9097 |
elsif ($c >= 248) { } |
|
|
1 |
9096 |
elsif ($c >= 240) { } |
|
|
607 |
8489 |
elsif ($c >= 224) { } |
|
|
8488 |
1 |
elsif ($c >= 192) { } |
|
285
|
1 |
9097 |
if ($i + $bits > $len) |
|
293
|
607 |
8500 |
if ($bv < 128 or $bv > 191) |
|
299
|
5 |
8485 |
if "\000\000\000\000\000/" eq pack('c6', @buf) |
|
305
|
607 |
608 |
$d ? : |