| line |
true |
false |
branch |
|
37
|
0 |
3 |
if $debug and $debug & 256 |
|
44
|
0 |
0 |
if ($debug & 8192) |
|
50
|
0 |
0 |
defined $_ ? : |
|
52
|
0 |
0 |
if ($debug & 256) { } |
|
69
|
0 |
0 |
unpack('c', $c) >= 32 ? : |
|
80
|
0 |
0 |
unless (defined $has_sk) |
|
92
|
0 |
0 |
if (_has_sk()) { } |
|
102
|
0 |
0 |
if (ref $w eq 'Regexp') |
|
106
|
0 |
0 |
if (ref $nw eq 'Regexp') { } |
|
|
0 |
0 |
elsif (defined $nw) { } |
|
113
|
0 |
0 |
if (defined $w and defined $nw) |
|
114
|
0 |
0 |
if &$nw |
|
122
|
0 |
0 |
unless defined $l |
|
127
|
0 |
0 |
eval {
do {
@$l;
1
}
} ? : |
|
140
|
0 |
0 |
if ($char eq '\\') { } |
|
144
|
0 |
0 |
if ($first_byte) |
|
145
|
0 |
0 |
if ($strict_leading_dot) |
|
146
|
0 |
0 |
unless $char eq '.' |
|
150
|
0 |
0 |
if ($char eq '/') |
|
153
|
0 |
0 |
if ($escaping) { } |
|
158
|
0 |
0 |
if ($char eq '*') { } |
|
|
0 |
0 |
elsif ($char eq '?') { } |
|
|
0 |
0 |
elsif ($char eq '{') { } |
|
|
0 |
0 |
elsif ($char eq '}') { } |
|
|
0 |
0 |
elsif ($char eq ',' and $in_curlies) { } |
|
|
0 |
0 |
elsif ($char eq '[') { } |
|
171
|
0 |
0 |
if $in_curlies < 0 |
|
178
|
0 |
0 |
if ($glob =~ /\G((?:\\.|[^\]])+)\]/g) { } |
|
195
|
0 |
0 |
if $in_curlies |
|
197
|
0 |
0 |
$ignore_case ? : |
|
198
|
0 |
0 |
$wildcards > 0 ? : |
|
|
0 |
0 |
wantarray ? : |
|
202
|
0 |
0 |
if (${^TAINT} > 0) |
|
206
|
0 |
0 |
if (${^TAINT} < 0) |
|
215
|
0 |
0 |
unless $i++ |
|
216
|
0 |
0 |
if (&tainted($_)) { } |
|
|
0 |
0 |
elsif (ref $_) { } |
|
218
|
0 |
0 |
$subn =~ /::([a-z]\w*)$/ ? : |
|
227
|
0 |
0 |
$subn =~ /::([a-z]\w*)$/ ? : |
|
238
|
0 |
0 |
$unix2dos ? : |
|
242
|
0 |
0 |
if $done |
|
245
|
0 |
0 |
if ($debug and $debug & 128) |
|
249
|
0 |
0 |
if (length $_) { } |
|
|
0 |
0 |
elsif ($previous) { } |
|
250
|
0 |
0 |
if ($previous) |
|
255
|
0 |
0 |
if ($unix2dos) { } |
|
268
|
0 |
0 |
if ($debug and $debug & 128) |
|
280
|
0 |
0 |
unless defined $conversion |
|
282
|
0 |
0 |
if (ref $conversion) { } |
|
|
0 |
0 |
elsif ($conversion eq 'dos2unix') { } |
|
|
0 |
0 |
elsif ($conversion eq 'unix2dos') { } |
|
283
|
0 |
0 |
if (ref $conversion eq 'CODE') { } |
|
316
|
0 |
0 |
unless $path =~ m[([^/]*)$] |
|
321
|
0 |
0 |
if (${^TAINT}) |
|
323
|
0 |
0 |
unless defined $_ |
|
331
|
0 |
0 |
if (defined $umask) |