| line |
true |
false |
branch |
|
25
|
6 |
46 |
if ($& =~ /^[\x{410}-\x{42f}\x{401}][\x{430}-\x{44f}\x{451}]+$/) { }
|
|
|
16 |
30 |
elsif ($& =~ /^[\x{410}-\x{42f}\x{401}]+$/) { }
|
|
|
24 |
6 |
elsif ($& =~ /^[\x{430}-\x{44f}\x{451}]+$/) { }
|
|
37
|
0 |
4 |
unless length $octets
|
|
39
|
1 |
3 |
if utf8::is_utf8($octets)
|
|
51
|
0 |
4 |
if @x == 1
|
|
53
|
4 |
0 |
if (@x > 1)
|
|
58
|
0 |
4 |
wantarray ? :
|
|
74
|
0 |
0 |
if (-d $file) { }
|
|
86
|
0 |
0 |
unless open my $f, "<", $file
|
|
97
|
0 |
0 |
if utf8::is_utf8($unicode)
|
|
99
|
0 |
0 |
unless open my $f, ">", $file
|
|
116
|
0 |
0 |
unless utf8::is_utf8($unicode)
|
|
118
|
0 |
0 |
if defined $encoding
|
|
138
|
0 |
0 |
@$exts ? :
|
|
|
0 |
0 |
if defined $ext
|
|
140
|
0 |
0 |
unless open my $f, "<", $file
|
|
142
|
0 |
0 |
if $buf ne "#!"
|
|
144
|
0 |
0 |
unless @$interpreters
|
|
151
|
0 |
0 |
$first_line =~ /.*\b($interpreters)\b/ ? :
|
|
158
|
0 |
0 |
unless ref $exts
|
|
159
|
0 |
0 |
unless ref $interpreters
|