Branch Coverage

blib/lib/Graphics/Fig/Spline.pm
Criterion Covered Total %
branch 31 54 57.4


line true false branch
42 0 11 unless ($value =~ /^\s*($RE_REAL)/)
45 0 11 if ($value < -1 or $value > 1)
63 7 1 if (ref $value eq '')
67 0 1 if (ref $value ne 'ARRAY')
186 8 11 if (defined(my $shapeFactors = do { $parameters }->{'shapeFactors'})) { }
187 0 8 if ($subtype != 4 and $subtype != 5)
196 7 1 if (ref $shapeFactors eq '') { }
206 0 1 if ($n != $m)
217 0 11 if ($subtype == 4 or $subtype == 5)
221 17 11 $subtype < 2 ? :
247 0 13 if ($@)
256 0 13 if (not defined($temp = $parameters{'points'}) or scalar(@{$temp;} < 3))
295 0 6 if ($@)
304 0 6 if (not defined $parameters{'points'}) { }
305 0 0 unless (defined $parameters{'distance'})
308 0 0 unless (defined $parameters{'heading'})
319 0 6 if (defined $parameters{'distance'})
322 0 6 if (defined $parameters{'heading'})
325 0 6 if (scalar @{$parameters{'points'};} == 0)
338 5 1 if (defined($self = do { $tos }->{'openSplineto'}))
349 0 3 if (not defined $self && defined $finalPoint or $parameters{'new'} or do { $position }->[0] != do { $finalPoint }->[0] or do { $position }->[1] != do { $finalPoint }->[1] or do { $self }->{'subtype'} != $parameters{'splineSubtype'} or do { $self }->{'lineStyle'} != $parameters{'lineStyle'} or do { $self }->{'lineThickness'} != $parameters{'lineThickness'} or do { $self }->{'penColor'} != $parameters{'penColor'} or do { $self }->{'fillColor'} != $parameters{'fillColor'} or do { $self }->{'depth'} != $parameters{'depth'} or do { $self }->{'areaFill'} != $parameters{'areaFill'} or do { $self }->{'styleVal'} != $parameters{'styleVal'} or do { $self }->{'capStyle'} != $parameters{'capStyle'} or Graphics::Fig::Parameters::compareArrowParameters($self, \%parameters) != 0)
417 0 0 if (sin($rotation) * cos($rotation) != 0 and $subtype == 2 || $subtype == 4)
467 1 15 if (@{do { $self }->{'points'};} == 2) { }
479 1 0 defined do { $self }->{'fArrow'} ? :
0 1 defined do { $self }->{'bArrow'} ? :
504 2 13 defined do { $self }->{'fArrow'} ? :
0 15 defined do { $self }->{'bArrow'} ? :