| 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+)/) { } |
|
98
|
0 |
6 |
if (my $db = $cfg->val(('database', 'name'), undef)) |
|
117
|
0 |
6 |
if ($cfg->val('EB::Config', 'showfiles', 0)) |
|
122
|
0 |
6 |
if ($cfg->val('EB::Config', 'dumpcfg', 0)) |
|
131
|
2 |
0 |
unless defined $app |
|
148
|
91 |
12 |
unless defined $res |
|
149
|
0 |
103 |
unless defined $res or @_ > 3 |
|
163
|
0 |
0 |
unless exists $self->{'data'}{$key} |
|
170
|
6 |
60 |
if $ENV{$env} and not $self->val($section, $parameter, undef) |
|
175
|
0 |
0 |
unless wantarray |
|
185
|
0 |
0 |
if ($self->{'files'}[0] eq '') |
|
202
|
0 |
6 |
if defined $file |
|
209
|
0 |
0 |
unless open my $fd, '<:encoding(utf-8)', $file |
|
218
|
0 |
0 |
unless /\S/ |
|
219
|
0 |
0 |
if /^[#;]/ |
|
220
|
0 |
0 |
if (/^\s*\[\s*(.*?)\s*\]\s*$/) |
|
224
|
0 |
0 |
if (/^\s*(.*?)\s*=\s*(.*?)\s*$/) |
|
231
|
0 |
0 |
if $fail |
|
239
|
0 |
0 |
unless @$list > 0 |
|
241
|
0 |
0 |
unless ($conf =~ /^(.+?):([^:]+)/) |
|
248
|
0 |
0 |
if defined $val |
|
261
|
0 |
2 |
if ($^O =~ /^mswin/i) |
|
267
|
2 |
0 |
defined $item ? : |