| line |
true |
false |
branch |
|
44
|
3 |
1 |
unless not -l $path and -e _ |
|
49
|
1 |
4 |
unless -l $path |
|
53
|
4 |
0 |
if ($path =~ m[(.+)/(.+)]s) { } |
|
55
|
0 |
4 |
unless defined $path |
|
66
|
1 |
7 |
unless -d $dir |
|
67
|
0 |
7 |
unless opendir my $dh, $dir |
|
69
|
12 |
6 |
if $e eq '.' or $e eq '..' |
|
77
|
1 |
9 |
unless -d $dir |
|
78
|
0 |
9 |
unless opendir my $dh, $dir |
|
80
|
14 |
8 |
if $e eq '.' or $e eq '..' |
|
81
|
4 |
4 |
unless -f "$dir/$e" |
|
89
|
1 |
9 |
unless -d $dir |
|
90
|
0 |
9 |
unless opendir my $dh, $dir |
|
92
|
16 |
8 |
if $e eq '.' or $e eq '..' |
|
93
|
5 |
3 |
unless $e =~ /\A\./ |
|
94
|
1 |
2 |
unless -f "$dir/$e" |
|
102
|
1 |
9 |
unless -d $dir |
|
103
|
0 |
9 |
unless opendir my $dh, $dir |
|
105
|
16 |
8 |
if $e eq '.' or $e eq '..' |
|
106
|
3 |
5 |
if $e =~ /\A\./ |
|
107
|
3 |
2 |
unless -f "$dir/$e" |
|
115
|
1 |
11 |
unless -d $dir |
|
116
|
0 |
11 |
unless opendir my $dh, $dir |
|
118
|
19 |
10 |
if $e eq '.' or $e eq '..' |
|
119
|
6 |
4 |
if -l "$dir/$e" |
|
120
|
2 |
2 |
unless -d _ |
|
128
|
1 |
8 |
unless -d $dir |
|
129
|
0 |
8 |
unless opendir my $dh, $dir |
|
131
|
14 |
7 |
if $e eq '.' or $e eq '..' |
|
132
|
3 |
4 |
if -l "$dir/$e" |
|
133
|
2 |
2 |
unless -d _ |
|
140
|
1 |
5 |
unless -d $dir |
|
141
|
0 |
5 |
unless opendir my $dh, $dir |
|
143
|
9 |
4 |
if $e eq '.' or $e eq '..' |
|
144
|
2 |
2 |
unless $e =~ /\A\./ |
|
145
|
0 |
2 |
if -l "$dir/$e" |
|
146
|
1 |
1 |
unless -d _ |
|
154
|
1 |
5 |
unless -d $dir |
|
155
|
0 |
5 |
unless opendir my $dh, $dir |
|
157
|
8 |
4 |
if $e eq '.' or $e eq '..' |
|
158
|
2 |
2 |
if $e =~ /\A\./ |
|
159
|
0 |
2 |
if -l "$dir/$e" |
|
160
|
1 |
1 |
unless -d _ |
|
169
|
0 |
2 |
unless opendir my $dh, $dir |
|
170
|
7 |
2 |
if $_ ne '.' |
|
178
|
0 |
1 |
unless opendir my $dh, $dir |
|
179
|
4 |
2 |
if $_ ne '.' and $_ ne '..' |
|
187
|
0 |
1 |
unless opendir my $dh, $dir |
|
188
|
4 |
2 |
if $_ ne '.' and $_ ne '..' |
|
196
|
0 |
1 |
unless opendir my $dh, $dir |
|
197
|
2 |
3 |
if $_ ne '.' and $_ ne '..' and /\A\./ |
|
205
|
0 |
1 |
unless opendir my $dh, $dir |
|
206
|
2 |
3 |
if $_ ne '.' and $_ ne '..' and not /\A\./ |
|
214
|
0 |
2 |
unless opendir my $dh, $dir |
|
215
|
5 |
2 |
if $_ ne '.' and $_ ne '..' and not -l $_ |
|
223
|
0 |
2 |
unless opendir my $dh, $dir |
|
224
|
5 |
4 |
if $_ ne '.' and $_ ne '..' |
|
232
|
0 |
1 |
unless opendir my $dh, $dir |
|
233
|
2 |
2 |
if $_ ne '.' and $_ ne '..' and /\A\./ and not -l $_ |
|
241
|
0 |
1 |
unless opendir my $dh, $dir |
|
242
|
2 |
2 |
if $_ ne '.' and $_ ne '..' and not /\A\./ and not -l $_ |