Branch Coverage

lib/Graphics/Fig/Ellipse.pm
Criterion Covered Total %
branch 73 124 58.8


line true false branch
44 0 12 if ($d > "-1e-14")
55 9 3 if (abs $B < 1e-14) { }
56 9 0 if ($A <= $C) { }
80 0 1 if ($value eq "radius")
83 1 0 if ($value eq "diameter")
86 0 0 if ($value =~ /^$RE_INT$/)
87 0 0 if ($value != 3 and $value != 4)
109 0 1 if ($value eq "radii")
112 1 0 if ($value eq "diameters")
115 0 0 if ($value =~ /^$RE_INT$/)
116 0 0 if ($value != 1 and $value != 2)
212 0 8 if ($@)
241 2 6 if (defined $parameters{'r'}) { }
4 2 elsif (defined $parameters{'d'}) { }
242 0 2 if (defined $parameters{'d'})
256 1 7 if (defined $parameters{'subtype'}) { }
4 3 elsif (defined $dr and $dr eq 'd') { }
267 2 6 if (defined(my $points = $parameters{'points'})) { }
271 0 2 if (defined $r)
278 1 1 if (@{$points;} == 1) { }
1 0 elsif (@{$points;} == 3) { }
282 1 0 if (defined $parameters{'center'}) { }
302 0 1 if (defined $parameters{'center'})
324 0 1 if (abs $d < "1e-14")
337 0 1 unless $a == $b
338 0 1 unless $dummy_rotation == 0
351 0 2 unless ref do { $self }->{'center'} eq "ARRAY"
352 0 2 if (defined $parameters{'rotation'}) { }
364 0 6 unless (defined $r)
371 5 1 if (defined $parameters{'center'}) { }
386 0 6 if (defined $parameters{'rotation'}) { }
420 0 7 if ($@)
446 1 6 if (defined $parameters{'subtype'}) { }
455 4 3 if (defined(my $points = $parameters{'points'})) { }
456 0 4 if (defined $parameters{'a'} or defined $parameters{'b'})
465 1 3 if (@{$points;} == 2) { }
1 2 elsif (@{$points;} == 3) { }
2 0 elsif (@{$points;} == 5) { }
470 1 0 if (defined $parameters{'center'}) { }
490 1 0 unless (defined($rotation = $parameters{'rotation'}))
513 0 1 if (abs $d < "1e-14")
520 0 1 unless abs $dummy_xc < "1e-14"
521 0 1 unless abs $dummy_yc < "1e-14"
527 0 1 if (1 > $C)
538 0 1 if (defined $parameters{'rotation'})
547 0 1 if (defined $parameters{'center'}) { }
576 0 1 if (abs $d < "1e-14")
584 0 1 unless abs $dummy_xc < "1e-14"
585 0 1 unless abs $dummy_yc < "1e-14"
592 0 2 if (defined $parameters{'center'})
596 0 2 if (defined $parameters{'rotation'})
632 0 2 if (abs $d < "1e-14")
658 0 3 unless (defined $parameters{'a'} and defined $parameters{'b'})
666 0 3 if (defined $parameters{'center'}) { }
682 1 2 if (defined $parameters{'rotation'}) { }
736 0 1 unless defined $scale
743 0 1 if ($u == $v) { }
816 0 15 unless defined do { $self }->{'subtype'}
819 7 8 if ($scaled_a != $scaled_b)
820 0 7 if ($subtype == 3) { }
0 7 elsif ($subtype == 4) { }
833 9 6 if ($subtype & 1) { }