| line |
true |
false |
branch |
|
22
|
3 |
0 |
if $@ |
|
23
|
0 |
0 |
unless my $key = 'Win32::TieRegistry'->new('HKEY_LOCAL_MACHINE/SYSTEM/CurrentControlSet/Control/Nls/CodePage', {'Delimiter', '/'}) |
|
26
|
0 |
0 |
if defined $v and $v =~ /(\d+)/ |
|
31
|
3 |
0 |
if $@ |
|
32
|
0 |
0 |
unless my $f = 'Win32::API'->new('Kernel32', 'GetACP', '', 'N') |
|
33
|
0 |
0 |
if $v |
|
46
|
0 |
3 |
if defined $v and $v =~ /(\d+)$/ |
|
54
|
0 |
9 |
if $@ |
|
55
|
0 |
9 |
if $cp |
|
79
|
0 |
0 |
if not defined $path or $path eq '' |
|
82
|
0 |
0 |
unless ref $enc |
|
87
|
0 |
0 |
unless utf8::is_utf8($path) |
|
89
|
0 |
0 |
if $path =~ s/^([^:]+:|\\\\[^\\]+)// |
|
90
|
0 |
0 |
if $path =~ s[^([\\/]+)][] |
|
92
|
0 |
0 |
if $path eq '' |
|
98
|
0 |
0 |
if ($nocase and not %alpha) |
|
100
|
0 |
0 |
if $t eq '' |
|
101
|
0 |
0 |
unless ($t =~ /[*?]/) |
|
103
|
0 |
0 |
if ($nocase) { } |
|
105
|
0 |
0 |
if $_ eq '' |
|
106
|
0 |
0 |
if ($_ eq '*') { } |
|
|
0 |
0 |
elsif ($_ eq '?') { } |
|
|
0 |
0 |
elsif ($alpha{$_}) { } |
|
113
|
0 |
0 |
if $_ eq '' |
|
114
|
0 |
0 |
if ($_ eq '*') { } |
|
|
0 |
0 |
elsif ($_ eq '?') { } |
|
119
|
0 |
0 |
if utf8::is_utf8($r) |
|
128
|
0 |
0 |
if ($level == -1) |
|
130
|
0 |
0 |
if ($parent eq '') { } |
|
|
0 |
0 |
elsif (length $top and not length $prefix) { } |
|
134
|
0 |
0 |
if (ref $spec) { } |
|
135
|
0 |
0 |
unless my $d = 'DirHandle'->new($parent) |
|
137
|
0 |
0 |
unless $_ =~ /$spec/ |
|
138
|
0 |
0 |
$replace ? : |
|
139
|
0 |
0 |
if ($level == @node) { } |
|
|
0 |
0 |
elsif (-d $path) { } |
|
140
|
0 |
0 |
$replace ? : |
|
142
|
0 |
0 |
if $sortfunc |
|
146
|
0 |
0 |
$replace ? : |
|
147
|
0 |
0 |
unless -e $path |
|
148
|
0 |
0 |
if ($level == @node) { } |
|
|
0 |
0 |
elsif (-d _) { } |
|
149
|
0 |
0 |
$replace ? : |