Branch Coverage

blib/lib/EB/Config.pm
Criterion Covered Total %
branch 21 70 30.0


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 ? :