| line |
true |
false |
branch |
|
36
|
85 |
12 |
if (-d $path) { } |
|
|
1 |
11 |
elsif (-f $path) { } |
|
40
|
1 |
10 |
unless mkdir $path |
|
51
|
0 |
95 |
if (ref $args{'store'}) { } |
|
54
|
41 |
54 |
$args{'store'} =~ /\:\:/ ? : |
|
56
|
0 |
95 |
if $@ |
|
60
|
0 |
95 |
if (exists $$repos{'elements'}) |
|
82
|
2 |
11 |
if ($dirs) { } |
|
84
|
0 |
2 |
if $top eq '' |
|
85
|
2 |
0 |
if not defined $dirs[-1] or $dirs[-1] eq '' |
|
87
|
1 |
1 |
unless -d $absfile |
|
88
|
1 |
1 |
@dirs ? : |
|
94
|
12 |
0 |
unless (catdir($file) eq '..' or catdir($file) eq '.' or grep {$file eq $_;} @{$$self{'contents'};}) |
|
106
|
5 |
8 |
-d $absfile ? : |
|
112
|
2 |
11 |
$remainder ? : |
|
117
|
0 |
1 |
-d $file ? : |
|
122
|
0 |
2 |
if -f $dir |
|
136
|
2 |
3 |
if ($file eq $_) { } |
|
142
|
0 |
2 |
unless $doit |
|
156
|
28 |
77 |
-d $file ? : |
|
189
|
8 |
29 |
unless ref $args{'params'} |
|
192
|
0 |
89 |
if ($args{'recurse'} and $args{'recurse'} eq 'pre') |
|
194
|
0 |
0 |
if @subout |
|
198
|
15 |
74 |
ref $func ? : |
|
200
|
20 |
69 |
if ($args{'recurse'} and $args{'recurse'} ne 'pre') |
|
202
|
4 |
16 |
if @subout |
|
246
|
6 |
6 |
if ($$self{'transactions'} and @{$$self{'transactions'};} or $args{'check_in_anyway'}) |
|
335
|
15 |
2 |
exists $args{'generation'} ? : |
|
337
|
0 |
17 |
if ($args{'time'}) |
|
340
|
0 |
0 |
if $branch |
|
343
|
0 |
0 |
unless /^$branch\d+$/ |
|
344
|
0 |
0 |
if $$self{'generation'}{$_}{'updated'} > $args{'time'} |
|
345
|
0 |
0 |
if $$self{'generation'}{$_}{'updated'} > $latest_time |
|
349
|
0 |
0 |
unless $latest_time |
|
352
|
0 |
7 |
if $gen and $$self{'generation'} and not $$self{'generation'}{$gen} |
|
354
|
7 |
10 |
$gen ? : |
|
367
|
7 |
0 |
unless $delt |
|
374
|
0 |
0 |
if ($ind eq '-') { } |
|
|
0 |
0 |
elsif ($ind eq '+') { } |
|
381
|
0 |
0 |
if $srcname and -d $srcname |
|
383
|
0 |
0 |
if (exists $$dest{'parent'} and $$dest{'parent'} eq $srcpath) |
|
389
|
0 |
0 |
if (exists $$src{'parent'} and $$src{'parent'} eq $path) |