Branch Coverage

lib/Graphics/Fig/Arc.pm
Criterion Covered Total %
branch 97 166 58.4


line true false branch
52 0 3 if ($value eq "open")
55 3 0 if ($value eq "pie" or $value eq "pie-wedge" or $value eq "closed")
58 0 0 unless ($value =~ s/^\s*($RE_INT)//)
61 0 0 if ($value != 1 and $value != 2)
83 2 3 if ($value eq "clockwise" or $value eq "cw")
86 3 0 if ($value eq "counterclockwise" or $value eq "ccw")
89 0 0 unless ($value =~ s/^\s*($RE_INT)//)
93 0 0 if ($value != 0 and $value != 1)
210 2 22 if (abs $angle > "3.14159265358979")
213 0 24 unless $angle >= "-3.14159265358979" and $angle <= "3.14159265358979"
214 1 23 if ($direction and $angle < 0) { }
3 28 elsif (not $direction and $angle > 0) { }
245 15 5 unless (defined $direction)
246 8 7 if (defined $angle) { }
2 5 elsif (defined $controlAngle) { }
259 9 11 if (defined $angle) { }
263 9 2 if ($direction) { }
274 3 17 if (defined $controlAngle) { }
276 0 3 if (abs $controlAngle >= abs $angle)
283 0 20 if $angle * $controlAngle < 0
284 0 20 if abs $controlAngle > abs $angle
285 0 20 if $controlAngle * $angle < 0
323 0 6 if (abs $d < "1e-14")
343 0 6 unless $r == $b
353 0 6 if abs $controlAngle > abs $angle
354 0 6 if $controlAngle * $angle < 0
421 0 11 if ($@)
450 4 7 if (defined $parameters{'r'}) { }
3 4 elsif (defined $parameters{'d'}) { }
451 0 4 if (defined $parameters{'d'})
461 7 4 if (not defined $points) { }
1 3 elsif (scalar @{$points;} == 1) { }
1 2 elsif (scalar @{$points;} == 2) { }
2 0 elsif (scalar @{$points;} == 3) { }
462 0 7 unless (defined $r)
467 0 7 if (defined $parameters{'center'}) { }
473 3 4 unless (defined($rotation = $parameters{'rotation'}))
486 0 1 if (defined $parameters{'d'})
489 0 1 if (defined $parameters{'r'})
492 0 1 if (defined $parameters{'rotation'})
495 1 0 if (defined $parameters{'center'}) { }
513 0 1 if (defined $parameters{'d'})
516 0 1 if (defined $parameters{'r'})
519 0 1 if (defined $parameters{'center'})
522 0 1 if (defined $parameters{'rotation'})
532 0 2 if (defined $parameters{'d'})
535 0 2 if (defined $parameters{'r'})
538 0 2 if (defined $parameters{'direction'})
541 0 2 if (defined $parameters{'controlAngle'})
544 0 2 if (defined $parameters{'angle'})
583 0 14 if ($@)
609 8 6 if (not defined $points) { }
3 3 elsif (scalar(@{$points;} == 1)) { }
3 0 elsif (scalar(@{$points;} == 2)) { }
611 6 2 if (defined $parameters{'distance'} or defined $parameters{'heading'}) { }
613 0 6 if (defined $parameters{'center'})
617 0 6 unless (defined $parameters{'distance'})
620 0 6 unless (defined $parameters{'heading'})
630 0 2 unless (defined $parameters{'center'})
634 0 2 if (defined $parameters{'distance'})
637 0 2 if (defined $parameters{'heading'})
655 0 3 if (defined $parameters{'center'})
658 0 3 if (defined $parameters{'distance'})
661 0 3 if (defined $parameters{'heading'})
671 0 3 if (defined $parameters{'angle'})
674 0 3 if (defined $parameters{'center'})
677 0 3 if (defined $parameters{'controlAngle'})
680 0 3 if (defined $parameters{'direction'})
683 0 3 if (defined $parameters{'distance'})
686 0 3 if (defined $parameters{'heading'})
749 0 1 unless defined $scale
756 0 1 if (abs $u == abs $v) { }
764 0 0 if ($u * $v < 0)
842 0 1 if (&crosses_axis($point1, $point3, [$xc - $r, $yc]) * $angle > 0)
843 0 0 if ($xc - $r < do { $bbox }->[0][0])
847 1 0 if (&crosses_axis($point1, $point3, [$xc, $yc - $r]) * $angle > 0)
848 1 0 if ($yc - $r < do { $bbox }->[0][1])
852 1 0 if (&crosses_axis($point1, $point3, [$xc + $r, $yc]) * $angle > 0)
853 1 0 if ($xc + $r > do { $bbox }->[1][0])
857 0 1 if (&crosses_axis($point1, $point3, [$xc, $yc + $r]) * $angle > 0)
858 0 0 if ($yc + $r > do { $bbox }->[1][1])
903 21 4 defined do { $self }->{'fArrow'} ? :
1 24 defined do { $self }->{'bArrow'} ? :