Condition Coverage

blib/lib/CORBA/IDLtree.pm
Criterion Covered Total %
condition 119 435 27.3


and 3 conditions

line !l l&&!r l&&r condition
1228 31 0 3 $ch eq "\"" and substr($str, $i - 1, 1) ne "\\"
1289 900 20 0 $out[$i] eq ":" and $out[$i + 1] eq ":"
920 0 0 $out[$i] eq "-" and $out[$i + 1] =~ /^\d/
1290 25 5 0 $out[$i + 1] eq "double" and not $CORBA::IDLtree::long_double_supported
1313 0 0 0 $i < $#out - 1 and $out[$i + 2] eq ":"
1317 0 0 0 $prev =~ /\w$/ and not exists $keywords{$prev}
1339 951 0 0 $out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1348 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 ">")
1373 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
1384 0 0 0 $dimref and @{$dimref;}
1397 111 0 0 $CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/
1417 185 0 0 $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1702 0 0 0 isnode($type) and $type->[1] eq $component_name
1711 0 45 0 $_->[0] != 48 and $_->[1] eq $component_name
1779 107 59 0 @typestack && $typestack[$#typestack] == ANNOTATION()
1897 0 0 0 $ord1 == 187 and $ord2 == 191
2058 226 0 0 $line =~ /\@/ and not $line =~ /\@annotation\b/
2102 0 0 0 exists $active_defines{$symbol} and $value ne $active_defines{$symbol}
2154 2 0 0 not $refscope and $p eq ""
2326 0 0 0 $lang and $lang ne "C"
2339 0 2 0 $res and not @$res
2364 0 0 0 isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21
2421 0 0 0 $argref and @$argref
2428 0 0 0 @$argref and $argref->[0] eq "("
2443 0 0 0 $val =~ /^[a-z]/i and $argref->[0] eq "="
2525 97 0 0 $in_valuetype and not $CORBA::IDLtree::vt2struct
2596 201 0 0 $CORBA::IDLtree::enable_comments and @remark
2824 10 4 1 $type == 27 and is_a($struct[0], 23)
2843 0 2 1 defined $lit and not defined $lits_given{$lit}
2851 15 0 0 $CORBA::IDLtree::struct2vt and $type == 26
2984 0 0 0 isname($nxttok) and $nxttok ne "supports"
2986 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
3035 0 0 0 ref $fwd and $fwd->[0] == 36
3103 2 8 0 $type == 26 and $nxt eq ":"
3106 0 0 0 isnode($parent) and $parent->[0] == 26
3122 0 0 0 $CORBA::IDLtree::struct2vt and $type == 26
3164 0 1 0 $typ > 9 and $typ != 23
1 0 0 $typ > 9 and $typ != 23 and $typ != 24
3242 0 0 0 $cmnt and $cmnt != $initial_cmnt
3277 12 0 0 $CORBA::IDLtree::enable_comments and @remark
3428 42 0 0 $in_valuetype and $kw eq "factory"
3477 77 0 0 $rettype == 41 and $pmode != 1
3489 31 0 46 @arg and $arg[0] eq ","
3506 1 0 0 @arg and shift @arg ne ","
3535 2 0 0 $struct[$i][0] != 28 and $struct[$i][0] != 29
3550 0 0 0 $cmnt and $cmnt != $initial_cmnt
3610 2 153 7184 ref $node_ref eq "ARRAY" and defined $node_ref->[0]
3611 0 348 6836 $node_ref->[0] >= 1 and $node_ref->[0] < 49
3713 0 0 0 defined $root->[1] and $root->[1] eq $first
3745 0 5097 246 defined $node->[1] and $node->[1] eq $first
3767 401 0 78 defined $anc and @parts == 0
3830 0 0 67 @prev_symroots and $prev_symroots[-1] != $current_symtree_ref
3908 0 0 0 $currfile >= 0 and $currfile < scalar @infilename
3918 0 0 0 $currfile >= 0 and $currfile < scalar @infilename
3948 0 0 98 $type >= 1 and $type < 49
93 0 98 not ref $type and ($type >= 1 and $type < 49)
4038 0 0 0 $dimref and @{$dimref;}
4048 14 3 0 isnode($type) and $type->[0] == 24
4050 0 0 0 $dimref and @{$dimref;}
4063 0 0 0 isnode($type) and $type->[0] == 24
4174 0 0 0 $wantfloat and not $v =~ /\./
4184 0 0 0 $wantfloat and not $res =~ /\./
4196 0 0 0 $t >= 11 && $t <= 13
4214 0 0 0 $wantfloat and not $res =~ /\./
4269 0 0 0 @$node > 1 and $node->[1] eq $name
4270 0 0 0 $must_be_scope_node and not is_scope($node)
4295 0 0 0 is_scope($node) and $scopes[0] eq $node->[1]
4400 0 0 0 defined $scoperef and $scoperef != 0
4413 0 0 0 $recurse and not $noderef
4440 0 0 0 defined $full_interface and @{$full_interface;}
4700 0 8 5 $dimref and @{$dimref;}
4984 0 0 0 isnode($st) and $st->[0] == 23

or 3 conditions

line l !l&&r !l&&!r condition
1092 0 4 0 ref $class || $class
1293 5 5 20 $out[$i + 1] eq "long" or $out[$i + 1] eq "double"
1298 1 0 0 $out[$i + 1] eq "short" or $out[$i + 1] eq "long"
1332 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
1339 0 0 0 $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1417 0 0 185 not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1576 0 0 0 scalar @expr > 1 or not $expr[0] =~ /^\d/
1676 0 13 0 $nxtarg eq "," or $nxtarg eq ";"
1710 46 7 45 $_->[0] == 28 or $_->[0] == 29
1808 0 0 0 @arg or not $symbol =~ /^\d+$/
1863 0 0 0 $directive eq "else" or $directive eq "endif"
1873 0 0 0 $directive eq "if" or $directive eq "ifdef"
0 0 0 $directive eq "if" or $directive eq "ifdef" or $directive eq "ifndef"
2058 2 0 226 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/
0 222 4 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/
2080 0 0 2 $directive eq "if" or $directive eq "elif"
2257 1 1 0 $c eq "TRUE" or $c eq "FALSE"
2264 5 0 0 $c =~ /^'.*'$/ or $c =~ /^\d+$/
2364 0 0 0 $membertype->[0] == 20 || $membertype->[0] == 21
2609 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"
2611 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"
2684 0 0 1 @typestack or @scopestack
2779 0 0 0 $arg[0] eq "}" or parse_members($symbols, \@arg, \@struct) == 1
2986 0 0 0 not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36
3002 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
3118 0 0 0 $arg[0] eq "}" or parse_members($symbols, \@arg, \@struct, $cmnt) == 1
3159 0 0 4 $switchtype < 1 or $switchtype > 10
3164 0 0 1 $typ < 1 or $typ > 9 and $typ != 23 and $typ != 24
3318 1 2 69 $kw eq "readonly" or $kw eq "attribute"
3337 7 0 5 /^\d/ or /^\.\d/
7 0 5 /^\d/ or /^\.\d/ or /^-\d/
3338 1 1 3 /^'.*'$/ or /^".*"$/
3358 0 0 2 $id < 23 or $id > 24
3535 0 0 2 $i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29
3634 0 0 0 $type == 32 || $type == 33 || $type == 35 || $type == 43
3645 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
3743 0 934 5420 $nt == 48 or $nt == 42
934 76 5344 $nt == 48 or $nt == 42 or $nt == 38
3794 0 200 0 $name =~ /^CORBA::/ or not $name =~ /::/
3982 0 0 93 $node[0] == 20 or $node[0] == 21
4075 0 0 0 $type == 44 || $type == 45 || $type == 46 || $type == 47
4151 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
4158 0 0 0 $c lt 0 or $c gt 7
4426 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
4449 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
4550 1 1 131 $type == 43 or $type == 44
4560 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
4582 54 0 0 scalar @last != 3 or ref $last[1]
4744 16 1 29 $type == 28 or $type == 29
4920 0 0 0 $e == 2 || $e == 5 || $e == 6 || $e == 7 || $e == 8 || $e == 9 || $e == 10
4979 0 0 0 defined $memb or $CORBA::IDLtree::union_default_null_allowed