| line |
true |
false |
branch |
|
44
|
2 |
4 |
if ($arg eq '-autoload') { } |
|
|
2 |
2 |
elsif ($arg eq 'envdir') { } |
|
|
2 |
0 |
elsif ($arg eq '-clean') { } |
|
49
|
0 |
2 |
if ($dir and $dir eq '-clean') |
|
65
|
2 |
4 |
if ($autoload) |
|
73
|
2 |
4 |
unless (ref $self and ref $self eq 'EnvDir') |
|
85
|
0 |
6 |
if (scalar @keys) |
|
87
|
0 |
0 |
if $$self{'clean'} |
|
90
|
0 |
0 |
if $self |
|
94
|
0 |
6 |
unless opendir my $dh, $envdir |
|
98
|
0 |
14 |
if -d $path |
|
99
|
4 |
10 |
if (-s $path == 0) { } |
|
109
|
2 |
4 |
if $$self{'clean'} |
|
112
|
0 |
6 |
unless closedir $dh |
|
114
|
4 |
0 |
if $self |
|
144
|
4 |
10 |
if ($value and $value eq '__MARK_DELETE__') { } |
|
156
|
10 |
0 |
if (open my $fh, '<', $path) { } |
|
158
|
10 |
0 |
if defined $value |
|
159
|
0 |
10 |
unless close $fh |