Branch Coverage

blib/lib/Config/XrmDatabase.pm
Criterion Covered Total %
branch 45 56 80.3


line true false branch
94 1 22 if ($self->_has_insert)
234 0 19 if @$class != @$name
244 8 11 unless (defined $retval)
246 2 6 if XXX
250 2 4 if $opt{'on_failure'} eq 'throw'
255 7 4 $opt{'return_value'} eq 'value' ? :
267 51 169 if ($idx + 1 == @$name)
269 11 0 if (exists $db->{$component} and exists $db->{$component}{'!!VALUE'})
279 2 9 $return_all ? :
292 56 260 if (my $subdb = $db->{$component})
295 32 24 if defined $res
301 25 112 if (my $subdb = $db->{'?'})
304 0 25 if defined $res
308 36 101 if (my $subdb = $db->{'*'})
313 12 108 if defined $res
355 0 750 unless defined $var and defined $value
400 1500 0 if ($key =~ /^(?.*)[.](?$Config::XrmDatabase::META_QR)$/u)
401 750 750 unless $+{'component'} eq '!!VALUE'
408 1 0 @records ? :
529 0 8 unless $iopt{$_} =~ /$match->{$_}/u
544 3 1 if (my $component = $Config::XrmDatabase::RMETA{$opt{'value'}}) { }
1 0 elsif ($opt{'value'} eq 'all') { }
547 30 0 if ($key =~ /^(?.*)[.](?$Config::XrmDatabase::META_QR)$/u)
551 15 15 if $+{'component'} eq $component
559 10 0 if ($key =~ /^(?.*)[.](?$Config::XrmDatabase::META_QR)$/u)
572 3 1 if $opt{'key'} eq 'string'
575 1 0 if $opt{'key'} eq 'array'
709 1 4 unless $normalize_names