| line |
true |
false |
branch |
|
55
|
1 |
37 |
if $line =~ /\A\s*\z/ |
|
56
|
2 |
35 |
if $line =~ /\A\s*#/ |
|
60
|
0 |
35 |
if $cur_indent =~ /\t/ |
|
65
|
27 |
8 |
unless (@indents) |
|
69
|
5 |
30 |
if ($cur_indent > $indents[-1]) { } |
|
|
3 |
27 |
elsif ($cur_indent < $indents[-1]) { } |
|
72
|
1 |
4 |
unless $prev_is_dir |
|
80
|
1 |
4 |
if ($cur_indent == $indents[$i]) |
|
86
|
2 |
1 |
unless $found |
|
92
|
5 |
27 |
if ($line =~ /\A"/) { } |
|
93
|
2 |
3 |
unless $line =~ s/\A(".*?(?
|
|
97
|
0 |
3 |
if $@ |
|
103
|
1 |
29 |
unless length $name |
|
105
|
1 |
28 |
if $name =~ m[/] |
|
107
|
2 |
26 |
if $name =~ /\A\.\.?\z/ |
|
111
|
7 |
19 |
if ($line =~ s[\A/][]) { } |
|
118
|
6 |
20 |
if ($line =~ /\A\(/) |
|
119
|
4 |
2 |
unless $line =~ s/\A\((?:([^,]*),([^,]*),)?([0-7]{3,4})\)// |
|
128
|
5 |
17 |
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 |
17 |
if ($line =~ s/\s+(\S.*)//) |
|
151
|
0 |
2 |
if $@ |
|
153
|
2 |
0 |
if (defined $extras->{'content'}) |
|
154
|
1 |
1 |
if $is_dir |
|
170
|
2 |
16 |
defined $sym_target ? : |
|
|
17 |
1 |
$#indents >= 0 ? : |
|
213
|
0 |
0 |
if $@ |
|
224
|
0 |
0 |
if (defined $prev_level) |
|
225
|
0 |
0 |
if ($e->{'level'} > $prev_level) { } |
|
|
0 |
0 |
elsif ($e->{'level'} < $prev_level) { } |
|
228
|
0 |
0 |
if $@ |
|
233
|
0 |
0 |
if $@ |
|
239
|
0 |
0 |
$e->{'is_dir'} ? : |
|
240
|
0 |
0 |
if ($e->{'is_dir'}) { } |
|
|
0 |
0 |
elsif ($e->{'is_symlink'}) { } |
|
241
|
0 |
0 |
unless do {
if (defined $e->{'perm'}) {
mkdir $e->{'name'}, $e->{'perm'};
}
else {
mkdir $e->{'name'};
}
} |
|
242
|
0 |
0 |
if (defined $e->{'perm'}) { } |
|
251
|
0 |
0 |
unless symlink $e->{'symlink_target'}, $e->{'name'} |
|
255
|
0 |
0 |
unless open my $fh, '>', $e->{'name'} |
|
256
|
0 |
0 |
if (defined $e->{'content'}) |
|
258
|
0 |
0 |
unless print $fh $e->{'content'} |
|
261
|
0 |
0 |
if (defined $e->{'perm'}) |
|
263
|
0 |
0 |
unless chmod $e->{'perm'}, $e->{'name'} |
|
267
|
0 |
0 |
if (defined $e->{'user'} or defined $e->{'group'}) |
|
269
|
0 |
0 |
if $e->{'is_symlink'} |
|
271
|
0 |
0 |
unless File::chown::chown(\%opts, $e->{'user'}, $e->{'group'}, $e->{'name'}) |
|
292
|
0 |
0 |
$err ? : |
|
308
|
0 |
0 |
if $@ |