Branch Coverage

blib/lib/Language/MPI.pm
Criterion Covered Total %
branch 39 74 52.7


line true false branch
280 0 3 unless ($num)
322 1 0 if ($year < 1000)
352 1 0 if ($indx < @$val) { }
364 1 0 if (defined &mpi_propset)
376 0 1 if ($count <= 0)
389 0 1 if (@$val == 4)
437 1 0 if ($propval)
461 1 0 if ($increment > 0) { }
0 0 elsif ($increment < 0) { }
546 1 0 if ($check) { }
577 1 0 if ($prop)
578 0 1 unless eval { do { &mpi_prop($obj, $prop, $this) } }
594 0 0 unless ($num)
609 0 1 if ($h{$i})
672 0 1 if ($list[$i] eq $item)
699 0 0 unless ($h{$i})
751 0 0 unless ($h{$i})
768 0 3 if ($tot > $var)
791 0 3 if ($tot > $var)
854 0 1 if (@list == 0)
906 1 2 unless ($num)
922 0 1 unless eval { do { &mpi_prop($obj, $prop, $this) } }
955 0 3 if ($var =~ /^[a..zA..Z]/)
990 0 1 unless eval { do { &mpi_propset($obj, $prop, $str, $this) } }
1022 0 0 unless (defined $pos2)
1056 1 0 if ($year < 1000)
1211 3 5 if (ref $list) { }
1221 0 6 if ($perl_list) { }
1235 149 81 if ($match =~ /(,|\})/) { }
81 0 elsif ($match =~ /\{(\w+)/) { }
1262 4 4 if ($match =~ /([,\}])/) { }
4 0 elsif ($match =~ /\{(\w+)/) { }
1284 6 1 if ($match =~ /([\}])/) { }
1 0 elsif ($match =~ /\{(\w+)/) { }
1322 7 74 if ($ctrl_functions{$function}) { }
73 1 elsif ($simp_functions{$function}) { }
0 1 elsif ($$this{"_f_$function"}) { }