Branch Coverage

lib/Graphics/Fig.pm
Criterion Covered Total %
branch 43 98 43.8


line true false branch
44 24 280 if ($unitSystem eq 'Metric') { }
64 0 0 if ($value eq "merge" or $value eq "group" or $value eq "discard")
283 0 64 if ($@)
307 0 65 if ($@)
332 0 4 if ($@)
336 4 0 if (defined $parameters{'point'}) { }
0 0 elsif (defined(my $r = $parameters{'distance'})) { }
0 0 elsif (defined $parameters{'position'}) { }
337 0 4 if (defined $parameters{'distance'})
340 0 4 if (defined $parameters{'heading'})
347 0 0 unless (defined $theta)
381 0 5 if ($@)
407 0 8 if ($@)
440 0 8 if ($@)
444 8 0 if ($parameters{'action'} eq 'merge') { }
0 0 elsif ($parameters{'action'} eq 'group') { }
464 0 11 if ($@)
481 0 14 if ($@)
498 0 8 if ($@)
515 0 7 if ($@)
532 0 11 if ($@)
549 0 29 if ($@)
566 0 17 if ($@)
583 0 7 if ($@)
600 0 19 if ($@)
617 0 13 if ($@)
634 0 6 if ($@)
651 0 1 if ($@)
674 0 9 if ($@)
699 0 10 if ($@)
724 0 7 if ($@)
751 0 6 if ($@)
757 6 26 unless (defined $x_min)
764 8 18 if (do { $bbox }->[0][0] < $x_min)
767 10 16 if (do { $bbox }->[0][1] < $y_min)
770 7 19 if (do { $bbox }->[1][0] > $x_max)
773 5 21 if (do { $bbox }->[1][1] > $y_max)
891 0 64 if ($comment ne "")
893 0 0 unless ($comment =~ /\n$/)
905 0 64 if ($comment ne "")
947 0 64 if ($@)
953 0 64 unless (defined $filename)
956 0 64 unless open my $fh, ">", $filename
978 0 0 if ($@)
988 0 0 unless (defined $outputFilename)
992 0 0 if (defined $parameters{'type'}) { }
0 0 elsif ($outputFilename =~ /\.([^.]+)$/) { }
1011 0 0 if (defined $parameters{'options'})
1015 0 0 if (system(@Args) != 0)