| line |
true |
false |
branch |
|
55
|
3 |
70 |
if $line =~ /\A\s*\z/ |
|
56
|
2 |
68 |
if $line =~ /\A\s*#/ |
|
60
|
0 |
68 |
if $cur_indent =~ /\t/ |
|
65
|
28 |
40 |
unless (@indents) |
|
69
|
13 |
55 |
if ($cur_indent > $indents[-1]) { } |
|
|
8 |
47 |
elsif ($cur_indent < $indents[-1]) { } |
|
72
|
1 |
12 |
unless $prev_is_dir |
|
80
|
6 |
11 |
if ($cur_indent == $indents[$i]) |
|
86
|
2 |
6 |
unless $found |
|
92
|
5 |
60 |
if ($line =~ /\A"/) { } |
|
93
|
2 |
3 |
unless $line =~ s/\A(".*?(?
|
|
97
|
0 |
3 |
if $@ |
|
103
|
1 |
62 |
unless length $name |
|
105
|
1 |
61 |
if $name =~ m[/] |
|
107
|
2 |
59 |
if $name =~ /\A\.\.?\z/ |
|
111
|
15 |
44 |
if ($line =~ s[\A/][]) { } |
|
118
|
6 |
53 |
if ($line =~ /\A\(/) |
|
119
|
4 |
2 |
unless $line =~ s/\A\((?:([^,]*),([^,]*),)?([0-7]{3,4})\)// |
|
128
|
5 |
50 |
if ($line =~ s/\s+->\s*//) |
|
129
|
1 |
4 |
if $is_dir |
|
132
|
3 |
1 |
if ($line =~ /\A"/) { } |
|
133
|
1 |
2 |
unless $line =~ s/\A(".*?(?
|
|
137
|
0 |
2 |
if $@ |
|
143
|
1 |
2 |
unless length $sym_target |
|
148
|
2 |
50 |
if ($line =~ s/\s+(\S.*)//) |
|
151
|
0 |
2 |
if $@ |
|
153
|
2 |
0 |
if (defined $extras->{'content'}) |
|
154
|
1 |
1 |
if $is_dir |
|
170
|
2 |
49 |
defined $sym_target ? : |
|
|
51 |
0 |
$#indents >= 0 ? : |
|
213
|
0 |
1 |
if $@ |
|
224
|
32 |
1 |
if (defined $prev_level) |
|
225
|
8 |
24 |
if ($e->{'level'} > $prev_level) { } |
|
|
5 |
19 |
elsif ($e->{'level'} < $prev_level) { } |
|
228
|
0 |
8 |
if $@ |
|
235
|
0 |
5 |
if $@ |
|
241
|
8 |
25 |
$e->{'is_dir'} ? : |
|
242
|
8 |
25 |
if ($e->{'is_dir'}) { } |
|
|
0 |
25 |
elsif ($e->{'is_symlink'}) { } |
|
243
|
0 |
8 |
unless do {
if (defined $e->{'perm'}) {
mkdir $e->{'name'}, $e->{'perm'};
}
else {
mkdir $e->{'name'};
}
} |
|
244
|
0 |
8 |
if (defined $e->{'perm'}) { } |
|
253
|
0 |
0 |
unless symlink $e->{'symlink_target'}, $e->{'name'} |
|
257
|
0 |
25 |
unless open my $fh, '>', $e->{'name'} |
|
258
|
0 |
25 |
if (defined $e->{'content'}) |
|
260
|
0 |
0 |
unless print $fh $e->{'content'} |
|
263
|
0 |
25 |
if (defined $e->{'perm'}) |
|
265
|
0 |
0 |
unless chmod $e->{'perm'}, $e->{'name'} |
|
269
|
0 |
33 |
if (defined $e->{'user'} or defined $e->{'group'}) |
|
271
|
0 |
0 |
if $e->{'is_symlink'} |
|
273
|
0 |
0 |
unless File::chown::chown(\%opts, $e->{'user'}, $e->{'group'}, $e->{'name'}) |
|
294
|
0 |
0 |
$err ? : |
|
310
|
0 |
0 |
if $@ |