Condition Coverage

blib/lib/Resources.pm
Criterion Covered Total %
condition 23 100 23.0


and 2 conditions

line l !l condition
421 0 0 $res->_error('load', 'No filename.') and return 0
423 0 0 $res->_error('load', $!) and return 0
471 0 0 $res->_error('load', "${filnam}: line $.: bad resource name: $name") and return 0
999 0 0 $res->_error('put', 'name or value undefined') and return 0
1007 0 0 $res->_error('put', "bad resource name: $name") and return 0
1222 0 0 $res->_error('edit', 'write failed') and return $p
1269 0 0 $res->_error('write', 'No filename') and return 0
1271 0 0 $res->_error('write', $!) and return 0
1292 0 0 length $lin < 60 and scalar @doclines
1490 0 0 $res->_error('merge', "error on ${dname}: $dvalue") and return 0

and 3 conditions

line !l l&&!r l&&r condition
364 1 0 0 $resfile and $resfile eq '_RES_NODEFAULTS'
380 1 0 0 $resfile and $resfile ne '_RES_NODEFAULTS'
439 0 0 0 not $comlin =~ /\#/ and $comlin =~ /\\$/
464 0 0 0 $mrgcls and not $name =~ /^\*|^$app\./
591 0 0 3 $class ne 'main' and $class ne lc $$res{'Res'}{'resources.appclass'}[$Resources::Value]
597 1 0 1 exists $$res{'Isa'}{$class} and $$res{'Isa'}{$class} =~ /\b$caller\b/
602 0 0 1 exists $$res{'Owned'}{$toppack} and $$res{'Owned'}{$toppack} =~ /\b$caller\b/
871 3 1 2 exists $$res{'Isa'}{$class} and $$res{'Isa'}{$class} =~ /\b$toppack\b/
879 1 1 2 exists $$res{'Owned'}{$class} and $$res{'Owned'}{$class} =~ /\b$toppack\b/
999 0 0 24 defined $name and defined $value
1232 0 0 0 exists $$res{'Res'}{$p} and defined $$res{'Res'}{$p}[$Resources::Doc]
1474 0 0 22 $vref = ref $dvalue and $vref =~ /ARRAY/o
0 0 22 $vref = ref $dvalue and $vref =~ /ARRAY/o and scalar @{$dvalue;} <= 2
0 0 22 $vref = ref $dvalue and $vref =~ /ARRAY/o and scalar @{$dvalue;} <= 2 and not ref $$dvalue[1]

or 2 conditions

line l !l condition
425 0 0 $$res{'Res'}{'resources.separator'}[$Resources::Value] || ':'
450 0 0 $line[0] || (next)
738 0 0 'Resources'->new || (return undef)
764 0 0 $res->bypattern($pattern) || (return undef)
788 0 0 $res->bypattern($pattern) || (return undef)
1060 14 10 exists $$res{'Res'}{$name} || 0
1062 12 12 $$res{'Load'} || !$ex || !($$nref[$Resources::Loaded] || $$res{'Merge'} && $$nref[$Resources::Merged]) || 0
1064 0 24 !$putall && $ex && (!$$nref[$Resources::Doc] && $doc) || 0
1113 0 0 $res->bypattern($name) || (return 0)
1227 0 0 'Resources'->new('_RES_NODEFAULTS') || undef
1353 0 0 $doc || ''
1384 0 0 _parse_ref($element, $refref) || (return undef)
1405 0 0 _parse_ref($val, $refref) || (return undef)

or 3 conditions

line l !l&&r !l&&!r condition
1007 0 0 24 scalar @words > 1 or $name =~ /^\.|\.$|\*$/
1214 1 0 0 $res->valbyname('resources.tmpfil') || "/tmp/resedit$$.txt"
1383 0 0 0 _isint($element) or _isreal($element)
1404 0 0 0 _isint($val) or _isreal($val)