| line |
true |
false |
branch |
|
30
|
0 |
6 |
unless $app = delete $opts->{'app'} |
|
34
|
0 |
0 |
if $main::cfg and $app and $main::cfg->{'app'} eq lc $app |
|
41
|
0 |
6 |
if ($extraconf) |
|
42
|
0 |
0 |
if (-d $extraconf) |
|
45
|
0 |
0 |
if (-e $f) { } |
|
53
|
0 |
0 |
unless -f $extraconf |
|
58
|
2 |
4 |
unless ($skipconfig) |
|
64
|
2 |
0 |
unless ($extraconf) |
|
66
|
2 |
0 |
unless -e $cfgs[-1] |
|
69
|
0 |
6 |
if $extraconf |
|
74
|
6 |
0 |
unless -s $file |
|
78
|
0 |
6 |
if ($opts->{'define'}) |
|
80
|
0 |
0 |
if ($k =~ /^(\w+(?:::\w+)*)::?(\w+)/) { } |
|
91
|
0 |
6 |
if (my $db = $cfg->val(('database', 'name'), undef)) |
|
110
|
0 |
6 |
if ($cfg->val('EB::Config', 'showfiles', 0)) |
|
115
|
0 |
6 |
if ($cfg->val('EB::Config', 'dumpcfg', 0)) |
|
124
|
2 |
0 |
unless defined $app |
|
141
|
79 |
0 |
unless defined $res |
|
142
|
0 |
79 |
unless defined $res or @_ > 3 |
|
156
|
0 |
0 |
unless exists $self->{'data'}{$key} |
|
163
|
0 |
60 |
if $ENV{$env} and not $self->val($section, $parameter, undef) |
|
168
|
0 |
0 |
unless wantarray |
|
178
|
0 |
0 |
if ($self->{'files'}[0] eq '') |
|
195
|
0 |
6 |
if defined $file |
|
202
|
0 |
0 |
unless open my $fd, '<:encoding(utf-8)', $file |
|
211
|
0 |
0 |
unless /\S/ |
|
212
|
0 |
0 |
if /^[#;]/ |
|
213
|
0 |
0 |
if (/^\s*\[\s*(.*?)\s*\]\s*$/) |
|
217
|
0 |
0 |
if (/^\s*(.*?)\s*=\s*(.*?)\s*$/) |
|
224
|
0 |
0 |
if $fail |
|
232
|
0 |
0 |
unless @$list > 0 |
|
234
|
0 |
0 |
unless ($conf =~ /^(.+?):([^:]+)/) |
|
241
|
0 |
0 |
if defined $val |
|
254
|
0 |
2 |
if ($^O =~ /^mswin/i) |
|
260
|
2 |
0 |
defined $item ? : |