Condition Coverage

blib/lib/CORBA/IDLtree.pm
Criterion Covered Total %
condition 122 441 27.6


and 3 conditions

line !l l&&!r l&&r condition
1183 31 0 3 $ch eq '"' and substr($str, $i - 1, 1) ne '\\'
1244 900 20 0 $out[$i] eq ':' and $out[$i + 1] eq ':'
920 0 0 $out[$i] eq '-' and $out[$i + 1] =~ /^\d/
1245 25 5 0 $out[$i + 1] eq 'double' and not $CORBA::IDLtree::long_double_supported
1268 0 0 0 $i < $#out - 1 and $out[$i + 2] eq ':'
1272 0 0 0 $prev =~ /\w$/ and not exists $keywords{$prev}
1294 951 0 0 $out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1303 24 0 0 $out[$i + 1] eq '<' and $out[$i + 3] eq '>'
703 24 0 $out[$i] =~ /^w?string$/ and ($out[$i + 1] eq '<' and $out[$i + 3] eq '>')
1328 0 0 17 $tdesc >= 1 and $tdesc <= 18
0 0 0 $recurse_into_typedef and isnode($tdesc)
0 0 0 $recurse_into_typedef and isnode($tdesc) and $tdesc->[0] == 24
1339 0 0 0 $dimref and @{$dimref;}
1352 111 0 0 $CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/
1372 185 0 0 $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1642 0 0 0 isnode($type) and $type->[1] eq $component_name
1651 0 45 0 $_->[0] != 48 and $_->[1] eq $component_name
1719 107 59 0 @typestack && $typestack[$#typestack] == ANNOTATION()
1731 0 1 0 not $did_emucppmsg and $verbose
1837 0 0 0 $ord1 == 187 and $ord2 == 191
1989 226 0 0 $line =~ /\@/ and not $line =~ /\@annotation\b/
2033 0 0 0 exists $active_defines{$symbol} and $value ne $active_defines{$symbol}
2085 2 0 0 not $refscope and $p eq ''
2257 0 0 0 $lang and $lang ne 'C'
2270 0 2 0 $res and not @$res
2295 0 0 0 isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21
2338 0 0 0 $argref and @$argref
2345 0 0 0 @$argref and $argref->[0] eq '('
2360 0 0 0 $val =~ /^[a-z]/i and $argref->[0] eq '='
2445 97 0 0 $in_valuetype and not $CORBA::IDLtree::vt2struct
2516 201 0 0 $CORBA::IDLtree::enable_comments and @remark
2740 10 4 1 $type == 27 and is_a($struct[0], 23)
2759 0 2 1 defined $lit and not defined $lits_given{$lit}
2767 15 0 0 $CORBA::IDLtree::struct2vt and $type == 26
2900 0 0 0 isname($nxttok) and $nxttok ne 'supports'
2902 0 0 0 $anc_type->[0] != 35 and $anc_type->[0] != 37
0 0 0 $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36
2951 0 0 0 ref $fwd and $fwd->[0] == 36
3018 2 8 0 $type == 26 and $nxt eq ':'
3021 0 0 0 isnode($parent) and $parent->[0] == 26
3037 0 0 0 $CORBA::IDLtree::struct2vt and $type == 26
3072 0 1 0 $typ > 9 and $typ != 23
1 0 0 $typ > 9 and $typ != 23 and $typ != 24
3150 0 0 0 $cmnt and $cmnt != $initial_cmnt
3185 12 0 0 $CORBA::IDLtree::enable_comments and @remark
3336 42 0 0 $in_valuetype and $kw eq 'factory'
3385 77 0 0 $rettype == 41 and $pmode != 1
3397 31 0 46 @arg and $arg[0] eq ','
3414 1 0 0 @arg and shift @arg ne ','
3443 2 0 0 $struct[$i][0] != 28 and $struct[$i][0] != 29
3458 0 0 0 $cmnt and $cmnt != $initial_cmnt
3520 2 153 7182 ref $node_ref eq 'ARRAY' and defined $node_ref->[0]
3521 0 348 6834 $node_ref->[0] >= 1 and $node_ref->[0] < 49
3523 6834 0 0 scalar @$node_ref == 5 and $verbose
3623 0 0 0 defined $root->[1] and $root->[1] eq $first
3655 0 5097 246 defined $node->[1] and $node->[1] eq $first
3677 401 0 78 defined $anc and @parts == 0
3740 0 0 67 @prev_symroots and $prev_symroots[-1] != $current_symtree_ref
3817 0 0 1 $currfile >= 0 and $currfile < scalar @infilename
3852 0 0 98 $type >= 1 and $type < 49
91 0 98 not ref $type and ($type >= 1 and $type < 49)
3942 0 0 0 $dimref and @{$dimref;}
3952 14 3 0 isnode($type) and $type->[0] == 24
3954 0 0 0 $dimref and @{$dimref;}
3967 0 0 0 isnode($type) and $type->[0] == 24
4078 0 0 0 $wantfloat and not $v =~ /\./
4088 0 0 0 $wantfloat and not $res =~ /\./
4100 0 0 0 $t >= 11 && $t <= 13
4118 0 0 0 $wantfloat and not $res =~ /\./
4173 0 0 0 @$node > 1 and $node->[1] eq $name
4174 0 0 0 $must_be_scope_node and not is_scope($node)
4199 0 0 0 is_scope($node) and $scopes[0] eq $node->[1]
4304 0 0 0 defined $scoperef and $scoperef != 0
4317 0 0 0 $recurse and not $noderef
4344 0 0 0 defined $full_interface and @{$full_interface;}
4609 0 8 5 $dimref and @{$dimref;}
4893 0 0 0 isnode($st) and $st->[0] == 23

or 3 conditions

line l !l&&r !l&&!r condition
1046 0 4 0 ref $class || $class
1248 5 5 20 $out[$i + 1] eq 'long' or $out[$i + 1] eq 'double'
1253 1 0 0 $out[$i + 1] eq 'short' or $out[$i + 1] eq 'long'
1287 0 0 0 $i == 0 or $out[$i - 1] eq '('
0 0 0 $i == 0 or $out[$i - 1] eq '(' or $out[$i - 1] eq '='
0 0 0 $i == 0 or $out[$i - 1] eq '(' or $out[$i - 1] eq '=' or $in_preprocessor
1294 0 0 0 $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1372 0 0 185 not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1531 0 0 0 scalar @expr > 1 or not $expr[0] =~ /^\d/
1616 0 13 0 $nxtarg eq ',' or $nxtarg eq ';'
1650 46 7 45 $_->[0] == 28 or $_->[0] == 29
1748 0 0 0 @arg or not $symbol =~ /^\d+$/
1803 0 0 0 $directive eq 'else' or $directive eq 'endif'
1813 0 0 0 $directive eq 'if' or $directive eq 'ifdef'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef'
1989 2 0 226 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/
0 222 4 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/
2011 0 0 2 $directive eq 'if' or $directive eq 'elif'
2188 1 1 0 $c eq 'TRUE' or $c eq 'FALSE'
2195 5 0 0 $c =~ /^'.*'$/ or $c =~ /^\d+$/
2295 0 0 0 $membertype->[0] == 20 || $membertype->[0] == 21
2529 0 0 132 $kw eq 'public' or $kw eq 'private'
8 2 122 $kw eq 'struct' or $kw eq 'exception'
16 1 100 $kw eq 'case' or $kw eq 'default'
2531 0 0 0 $directive eq 'if' or $directive eq 'ifdef'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif' or $directive eq 'else'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif' or $directive eq 'else' or $directive eq 'endif'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif' or $directive eq 'else' or $directive eq 'endif' or $directive eq 'define'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef' or $directive eq 'elif' or $directive eq 'else' or $directive eq 'endif' or $directive eq 'define' or $directive eq 'undef'
2604 0 0 1 @typestack or @scopestack
2699 0 0 0 $arg[0] eq '}' or parse_members($symbols, \@arg, \@struct) == 1
2902 0 0 0 not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36
2918 0 0 0 not isnode($anc_type) or $anc_type->[0] != 33
0 0 0 not isnode($anc_type) or $anc_type->[0] != 33 or $anc_type->[0] != 34
3033 0 0 0 $arg[0] eq '}' or parse_members($symbols, \@arg, \@struct, $cmnt) == 1
3067 0 0 4 $switchtype < 1 or $switchtype > 10
3072 0 0 1 $typ < 1 or $typ > 9 and $typ != 23 and $typ != 24
3226 1 2 69 $kw eq 'readonly' or $kw eq 'attribute'
3245 7 0 5 /^\d/ or /^\.\d/
7 0 5 /^\d/ or /^\.\d/ or /^-\d/
3246 1 1 3 /^'.*'$/ or /^".*"$/
3266 0 0 2 $id < 23 or $id > 24
3443 0 0 2 $i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29
3544 0 0 0 $type == 32 || $type == 33 || $type == 35 || $type == 43
3555 0 0 0 $type == 19 || $type == 20 || $type == 21 || $type == 22 || $type == 23 || $type == 24 || $type == 25 || $type == 26 || $type == 27 || $type == 33 || $type == 34 || $type == 35 || $type == 36 || $type == 37
3653 0 934 5420 $nt == 48 or $nt == 42
934 76 5344 $nt == 48 or $nt == 42 or $nt == 38
3704 0 200 0 $name =~ /^CORBA::/ or not $name =~ /::/
3886 0 0 91 $node[0] == 20 or $node[0] == 21
3979 0 0 0 $type == 44 || $type == 45 || $type == 46 || $type == 47
4055 0 0 0 $dg[0] eq '-' or $dg[0] eq '+'
0 0 0 $dg[0] eq '-' or $dg[0] eq '+' or $dg[0] eq '0'
4062 0 0 0 $c lt '0' or $c gt '7'
4330 0 0 0 $nt == 43 or $nt == 32
0 0 0 $nt == 43 or $nt == 32 or $nt == 33
0 0 0 $nt == 43 or $nt == 32 or $nt == 33 or $nt == 35
4353 0 0 0 $nt == 43 or $nt == 32
0 0 0 $nt == 43 or $nt == 32 or $nt == 33
0 0 0 $nt == 43 or $nt == 32 or $nt == 33 or $nt == 35
4376 0 0 0 $sc->[0] == 43 or $sc->[1] eq $scopes[0]
4459 1 1 131 $type == 43 or $type == 44
4469 2 16 56 $type == 32 or $type == 33
7 5 16 $type == 26 or $type == 27
12 2 14 $type == 26 or $type == 27 or $type == 30
4491 54 0 0 scalar @last != 3 or ref $last[1]
4653 16 1 29 $type == 28 or $type == 29
4829 0 0 0 $e == 2 || $e == 5 || $e == 6 || $e == 7 || $e == 8 || $e == 9 || $e == 10
4888 0 0 0 defined $memb or $CORBA::IDLtree::union_default_null_allowed