| line |
true |
false |
branch |
|
56
|
14 |
20 |
defined $name ? : |
|
59
|
1 |
33 |
unless (-f $file) |
|
66
|
0 |
33 |
unless (open $fh, '<:raw', $file) |
|
79
|
2 |
2601 |
if ($n == 1 and $line =~ /^\x{EF}\x{BB}\x{BF}/x) { } |
|
|
11 |
2590 |
elsif ($line =~ /^=+cut\s*$/x) { } |
|
|
14 |
2576 |
elsif ($line =~ /^=+encoding\s+([\w\-]+)/x) { } |
|
|
214 |
2362 |
elsif ($line =~ /^=+\w+/x) { } |
|
|
1167 |
1195 |
elsif ($pod == 0) { } |
|
92
|
2 |
12 |
if (1 < scalar keys %pod) |
|
98
|
8 |
4 |
$pod_encoding eq 'utf8' ? : |
|
113
|
6 |
1625 |
if (/^use\s+utf8(?:::all)?$/x) { } |
|
|
1 |
1624 |
elsif (/^use\s+common::sense$/x) { } |
|
|
2 |
1622 |
elsif (/^no\s+utf8$/x) { } |
|
121
|
2 |
1629 |
if ($use_utf8 == 0 and $utf8) { } |
|
|
2 |
3220 |
elsif ($use_utf8 == 1 and $latin1) { } |
|
137
|
2 |
1193 |
if ($pod_utf8 == 0 and $utf8) { } |
|
|
2 |
1864 |
elsif ($pod_utf8 == 1 and $latin1) { } |
|
159
|
1 |
4 |
unless @args |
|
162
|
9 |
2 |
-f $_ ? : |
|
|
2 |
11 |
-d $_ ? : |
|
164
|
1 |
4 |
unless (@files) |
|
173
|
6 |
14 |
unless file_encoding_ok($file) |
|
181
|
1 |
2 |
unless @queue |
|
186
|
29 |
30 |
if (-d $file) |
|
187
|
0 |
29 |
unless opendir my $dh, $file |
|
196
|
30 |
26 |
if (not -d $filename) { } |
|
205
|
30 |
29 |
if (-f $file) |
|
206
|
13 |
17 |
if _is_perl($file) |
|
213
|
2 |
0 |
if -e 'blib' |
|
220
|
1 |
29 |
if $file =~ /\.PL$/x |
|
221
|
7 |
22 |
if $file =~ /\.p(?:l|m|od)$/x |
|
222
|
0 |
22 |
if $file =~ /\.t$/x |
|
224
|
0 |
22 |
unless open my $fh, '<', $file |
|
228
|
5 |
17 |
if defined $first and $first =~ /(?:^\#!.*perl)|--\*-Perl-\*--/x |
|
241
|
58116 |
977 |
if ($use_xs) |
|
242
|
39674 |
18442 |
if (Unicode::CheckUTF8::is_utf8(${$str;})) { } |
|
243
|
18440 |
21234 |
${$str;} =~ /[\x{80}-\x{ff}]/x ? : |
|
257
|
4825 |
141596 |
if ($c >= 128) { } |
|
|
2 |
141594 |
elsif ($c == 0) { } |
|
260
|
1 |
4824 |
if ($c >= 254) { } |
|
|
1 |
4823 |
elsif ($c >= 252) { } |
|
|
1 |
4822 |
elsif ($c >= 248) { } |
|
|
1 |
4821 |
elsif ($c >= 240) { } |
|
|
322 |
4499 |
elsif ($c >= 224) { } |
|
|
4498 |
1 |
elsif ($c >= 192) { } |
|
276
|
1 |
4822 |
if ($i + $bits > $len) |
|
284
|
322 |
4510 |
if ($bv < 128 or $bv > 191) |
|
290
|
5 |
4495 |
if "\000\000\000\000\000/" eq pack('c6', @buf) |
|
296
|
322 |
323 |
$d ? : |