| line |
true |
false |
branch |
|
33
|
0 |
2 |
if $ENV{'MOD_PERL'} |
|
34
|
0 |
2 |
if $instance |
|
93
|
2 |
0 |
unless $level =~ /$$self{'top_dir'}/ |
|
96
|
0 |
2 |
if $$self{'private_key'} =~ /ChangeIt/i |
|
106
|
2 |
0 |
if (-e $file) |
|
107
|
0 |
2 |
unless open my $fh, "$file" |
|
111
|
2 |
4 |
if $line =~ /^#/ |
|
112
|
2 |
2 |
if $line =~ /^$/ |
|
119
|
0 |
2 |
if $key eq 'set' |
|
125
|
2 |
0 |
unless ($$self{'set'}{$key}) |
|
126
|
0 |
2 |
if ($eval) { } |
|
|
0 |
2 |
elsif (ref $$self{$key} eq 'ARRAY') { } |
|
127
|
0 |
0 |
if ref $$self{$key} eq 'ARRAY' |
|
128
|
0 |
0 |
if ref $$self{$key} eq 'HASH' |
|
129
|
0 |
0 |
if ref $$self{$key} eq 'SCALAR' |
|
130
|
0 |
0 |
if $eval eq '@' |
|
131
|
0 |
0 |
if $eval eq '%' |
|
132
|
0 |
0 |
if $eval eq '$' |