Condition Coverage

blib/lib/CORBA/IDLtree.pm
Criterion Covered Total %
condition 122 435 28.0


and 3 conditions

line !l l&&!r l&&r condition
1151 31 0 3 $ch eq '"' and substr($str, $i - 1, 1) ne '\\'
1212 900 20 0 $out[$i] eq ':' and $out[$i + 1] eq ':'
920 0 0 $out[$i] eq '-' and $out[$i + 1] =~ /^\d/
1213 25 5 0 $out[$i + 1] eq 'double' and not $CORBA::IDLtree::long_double_supported
1236 0 0 0 $i < $#out - 1 and $out[$i + 2] eq ':'
1240 0 0 0 $prev =~ /\w$/ and not exists $keywords{$prev}
1262 951 0 0 $out[$i] =~ /^[\-\d][\d\.]*e$/i and $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1271 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 '>')
1296 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
1307 0 0 0 $dimref and @{$dimref;}
1320 111 0 0 $CORBA::IDLtree::string_bound and $idltype =~ /^w?string$/
1340 185 0 0 $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1610 0 0 0 isnode($type) and $type->[1] eq $component_name
1619 0 45 0 $_->[0] != 48 and $_->[1] eq $component_name
1687 107 59 0 @typestack && $typestack[$#typestack] == ANNOTATION()
1699 0 1 0 not $did_emucppmsg and $verbose
1901 226 0 0 $line =~ /\@/ and not $line =~ /\@annotation\b/
1945 0 0 0 exists $active_defines{$symbol} and $value ne $active_defines{$symbol}
1997 2 0 0 not $refscope and $p eq ''
2169 0 0 0 $lang and $lang ne 'C'
2182 0 2 0 $res and not @$res
2207 0 0 0 isnode($membertype) and $membertype->[0] == 20 || $membertype->[0] == 21
2250 0 0 0 $argref and @$argref
2257 0 0 0 @$argref and $argref->[0] eq '('
2272 0 0 0 $val =~ /^[a-z]/i and $argref->[0] eq '='
2345 97 0 0 $in_valuetype and not $CORBA::IDLtree::vt2struct
2420 201 0 0 $CORBA::IDLtree::enable_comments and @remark
2644 10 4 1 $type == 27 and is_a($struct[0], 23)
2664 0 2 1 defined $lit and not defined $lits_given{$lit}
2672 15 0 0 $CORBA::IDLtree::struct2vt and $type == 26
2805 0 0 0 isname($nxttok) and $nxttok ne 'supports'
2807 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
2856 0 0 0 ref $fwd and $fwd->[0] == 36
2923 2 8 0 $type == 26 and $nxt eq ':'
2926 0 0 0 isnode($parent) and $parent->[0] == 26
2942 0 0 0 $CORBA::IDLtree::struct2vt and $type == 26
2977 0 1 0 $typ > 9 and $typ != 23
1 0 0 $typ > 9 and $typ != 23 and $typ != 24
3055 0 0 0 $cmnt and $cmnt != $initial_cmnt
3090 12 0 0 $CORBA::IDLtree::enable_comments and @remark
3241 42 0 0 $in_valuetype and $kw eq 'factory'
3290 77 0 0 $rettype == 41 and $pmode != 1
3302 31 0 46 @arg and $arg[0] eq ','
3319 1 0 0 @arg and shift @arg ne ','
3348 2 0 0 $struct[$i][0] != 28 and $struct[$i][0] != 29
3363 0 0 0 $cmnt and $cmnt != $initial_cmnt
3425 2 153 7182 ref $node_ref eq 'ARRAY' and defined $node_ref->[0]
3426 0 348 6834 $node_ref->[0] >= 1 and $node_ref->[0] < 49
3428 6834 0 0 scalar @$node_ref == 5 and $verbose
3528 0 0 0 defined $root->[1] and $root->[1] eq $first
3560 0 5097 246 defined $node->[1] and $node->[1] eq $first
3582 401 0 78 defined $anc and @parts == 0
3645 0 0 67 @prev_symroots and $prev_symroots[-1] != $current_symtree_ref
3722 0 0 1 $currfile >= 0 and $currfile < scalar @infilename
3757 0 0 98 $type >= 1 and $type < 49
91 0 98 not ref $type and ($type >= 1 and $type < 49)
3847 0 0 0 $dimref and @{$dimref;}
3857 14 3 0 isnode($type) and $type->[0] == 24
3859 0 0 0 $dimref and @{$dimref;}
3872 0 0 0 isnode($type) and $type->[0] == 24
3983 0 0 0 $wantfloat and not $v =~ /\./
3993 0 0 0 $wantfloat and not $res =~ /\./
4005 0 0 0 $t >= 11 && $t <= 13
4023 0 0 0 $wantfloat and not $res =~ /\./
4078 0 0 0 @$node > 1 and $node->[1] eq $name
4079 0 0 0 $must_be_scope_node and not is_scope($node)
4104 0 0 0 is_scope($node) and $scopes[0] eq $node->[1]
4209 0 0 0 defined $scoperef and $scoperef != 0
4222 0 0 0 $recurse and not $noderef
4249 0 0 0 defined $full_interface and @{$full_interface;}
4514 0 8 5 $dimref and @{$dimref;}
4798 0 0 0 isnode($st) and $st->[0] == 23

or 3 conditions

line l !l&&r !l&&!r condition
1014 0 4 0 ref $class || $class
1216 5 5 20 $out[$i + 1] eq 'long' or $out[$i + 1] eq 'double'
1221 1 0 0 $out[$i + 1] eq 'short' or $out[$i + 1] eq 'long'
1255 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
1262 0 0 0 $out[$i + 1] eq '+' || $out[$i + 1] eq '-'
1340 0 0 185 not $name =~ /^[a-z_:]/i or $name =~ /^_/ and not $CORBA::IDLtree::leading_underscore_allowed
1499 0 0 0 scalar @expr > 1 or not $expr[0] =~ /^\d/
1584 0 13 0 $nxtarg eq ',' or $nxtarg eq ';'
1618 46 7 45 $_->[0] == 28 or $_->[0] == 29
1739 0 0 0 $directive eq 'else' or $directive eq 'endif'
1749 0 0 0 $directive eq 'if' or $directive eq 'ifdef'
0 0 0 $directive eq 'if' or $directive eq 'ifdef' or $directive eq 'ifndef'
1901 2 0 226 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/
0 222 4 $line =~ /^#/ or $line =~ /\@/ and not $line =~ /\@annotation\b/ or $line =~ /[;,":{]$/
1923 0 0 2 $directive eq 'if' or $directive eq 'elif'
2100 1 1 0 $c eq 'TRUE' or $c eq 'FALSE'
2107 5 0 0 $c =~ /^'.*'$/ or $c =~ /^\d+$/
2207 0 0 0 $membertype->[0] == 20 || $membertype->[0] == 21
2433 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'
2435 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'
2508 0 0 1 @typestack or @scopestack
2603 0 0 0 $arg[0] eq '}' or parse_members($symbols, \@arg, \@struct) == 1
2807 0 0 0 not isnode($anc_type) or $anc_type->[0] != 35 and $anc_type->[0] != 37 and $anc_type->[0] != 36
2823 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
2938 0 0 0 $arg[0] eq '}' or parse_members($symbols, \@arg, \@struct, $cmnt) == 1
2972 0 0 4 $switchtype < 1 or $switchtype > 10
2977 0 0 1 $typ < 1 or $typ > 9 and $typ != 23 and $typ != 24
3131 1 2 69 $kw eq 'readonly' or $kw eq 'attribute'
3150 7 0 5 /^\d/ or /^\.\d/
7 0 5 /^\d/ or /^\.\d/ or /^-\d/
3151 1 1 3 /^'.*'$/ or /^".*"$/
3171 0 0 2 $id < 23 or $id > 24
3348 0 0 2 $i < 0 or $struct[$i][0] != 28 and $struct[$i][0] != 29
3449 0 0 0 $type == 32 || $type == 33 || $type == 35 || $type == 43
3460 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
3558 0 934 5420 $nt == 48 or $nt == 42
934 76 5344 $nt == 48 or $nt == 42 or $nt == 38
3609 0 200 0 $name =~ /^CORBA::/ or not $name =~ /::/
3791 0 0 91 $node[0] == 20 or $node[0] == 21
3884 0 0 0 $type == 44 || $type == 45 || $type == 46 || $type == 47
3960 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'
3967 0 0 0 $c lt '0' or $c gt '7'
4235 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
4258 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
4281 0 0 0 $sc->[0] == 43 or $sc->[1] eq $scopes[0]
4364 1 1 131 $type == 43 or $type == 44
4374 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
4396 54 0 0 scalar @last != 3 or ref $last[1]
4558 16 1 29 $type == 28 or $type == 29
4734 0 0 0 $e == 2 || $e == 5 || $e == 6 || $e == 7 || $e == 8 || $e == 9 || $e == 10
4793 0 0 0 defined $memb or $CORBA::IDLtree::union_default_null_allowed