Condition Coverage

blib/lib/Data/Stag/StagImpl.pm
Criterion Covered Total %
condition 94 224 41.9


and 3 conditions

line !l l&&!r l&&r condition
146 4 13 0 $fn and $fn eq '-'
151 3 1 13 not $fmt and $fn
181 0 0 0 not $str and $fn
196 16 0 1 not $fmt and $str
223 0 17 0 not ref $fmt and $fmt =~ /::/
263 0 17 0 $tree and ref $tree
508 0 2 0 ref $block and not @$block
586 2 0 1 ref $curr and ref $curr eq 'ARRAY'
886 0 82 0 ref $tree and ref $tree eq 'ARRAY'
888 0 82 0 ref $newtree and $$newtree[0] eq '@'
912 0 434 134 ref $tree and ref $tree eq 'ARRAY'
948 0 541 0 ref $_ && !scalar(@$_)
964 0 0 0 ref $tree and ref $tree eq 'ARRAY'
997 0 12 0 ref $tree and ref $tree eq 'ARRAY'
1074 3 110 2 ref $v[0] and not ref $v[0][0]
1077 0 115 0 ref $tree and ref $tree eq 'ARRAY'
1087 1 181 137 not $has_been_set and test_eq($ev, $node)
182 137 0 not $has_been_set and test_eq($ev, $node) and !$next_st || $$next_st[0] ne $ev
1123 0 4 0 ref $tree and ref $tree eq 'ARRAY'
1152 0 171 5 ref $tree and ref $tree eq 'ARRAY'
1189 0 132 3 ref $tree and ref $tree eq 'ARRAY'
1231 0 2 0 ref $tree and ref $tree eq 'ARRAY'
1321 0 40 0 ref $tree and ref $tree eq 'ARRAY'
1368 0 0 0 ref $tree and ref $tree eq 'ARRAY'
1509 0 0 0 ref $next and ref $next eq 'ARRAY'
1887 0 0 0 ref $subtree and ref $msubtree
2509 9 10 17 $$childh{$elt} and grep {$_ eq $se;} @{$$childh{$elt};}
2606 1726 0 36 ref $node and ref $node eq 'ARRAY'

or 2 conditions

line l !l condition
325 57 0 shift() || []
406 38 0 shift() || []
410 38 0 $w->popbuffer || ''
415 1 0 shift() || []
634 0 0 shift() || '/'
640 0 0 shift() || '/'
707 0 0 shift() || 0
725 0 0 perlesc($subtree) || ''
830 0 0 shift() || 0
1493 4 2 $$ssidx{$st} || []
1548 3 0 shift() || []
1577 3 0 $schema->get_top || 'set'
1728 267 0 $$grouprec{$_} || ''
2372 29 2 shift() || 0
2373 12 19 shift() || 0
2396 0 0 shift() || {}
2426 19 1 shift() || []
2481 12 1 shift() || {'data', {}, 'childh', {}, 'mincard', {}, 'maxcard', {}}
2517 29 2 $lcard{$_} || 0
2528 13 11 $$data{$elt} || 'INT'
2550 18 0 length $in || 0
2573 8 0 shift() || 1

or 3 conditions

line l !l&&r !l&&!r condition
38 0 180 0 ref $proto || $proto
39 176 4 0 @_ == 2 or @_ == 0
49 0 11 0 ref $proto || $proto
79 0 14 0 ref $proto || $proto
182 0 0 0 'FileHandle'->new($fn) || confess("no such file $fn")
886 0 82 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
912 134 434 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
964 0 0 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
984 12 0 0 shift() || confess()
997 0 12 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1035 0 0 0 shift() || confess()
1062 115 0 0 shift() || confess()
1077 0 115 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1087 44 1 92 !$next_st || $$next_st[0] ne $ev
1121 4 0 0 shift() || confess()
1123 0 4 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1148 176 0 0 shift() || confess()
1152 5 171 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1185 135 0 0 shift() || confess()
1189 3 132 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1227 2 0 0 shift() || confess()
1231 0 2 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1260 825 0 0 shift() || confess()
1317 40 0 0 shift() || confess()
1321 0 40 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1364 0 0 0 shift() || confess()
1368 0 0 0 ref $tree and ref $tree eq 'ARRAY' or isastag($tree)
1420 0 0 0 $maph{$oldkey} || $oldkey
1781 0 0 0 shift() || confess()
1884 0 0 0 ref $subtree or ref $msubtree
2202 994 0 1 UNIVERSAL::isa($node, 'Data::Stag::StagI') || UNIVERSAL::isa($node, 'Node')
2621 1095 0 2037 $ev eq $node || $node eq '*'