Branch Coverage

blib/lib/Text/Amuse/Output/Image.pm
Criterion Covered Total %
branch 45 48 93.7


line true false branch
67 442 0 if (my $f = $opts{'filename'}) { }
70 2 440 unless ($f =~ m[^[0-9A-Za-z][0-9A-Za-z/-]+\.(png|jpe?g)]s)
78 309 131 if (my $wrap = $opts{'wrap'})
79 309 0 if ($wrap eq 'l' or $wrap eq 'r' or $wrap eq 'f') { }
85 70 239 if ($wrap eq "l" or $wrap eq "r")
90 87 353 if (my $w = $opts{'width'})
91 86 1 if ($w =~ /^[0-9]+$/s) { }
98 37 402 if (my $r = $opts{'rotate'})
103 432 446 if (exists $opts{$k} and defined $opts{$k})
133 100 439 if (@args)
165 179 50 if ($width == 1) { }
226 52 169 if (defined $realdesc and length $realdesc)
234 36 185 if ($wrap eq 'r' or $wrap eq 'l') { }
119 66 elsif ($wrap eq 'f') { }
246 19 202 $self->rotate ? :
247 52 169 $desc ? :
265 154 64 if ($wrap)
271 51 167 if (defined $realdesc and length $realdesc)
278 43 175 if ($self->width != 1)
281 19 199 if (my $rotate = $self->rotate)
286 55 163 if (@styles)
291 51 167 if (defined $desc)
300 211 209 if ($self->fmt eq 'ltx') { }
209 0 elsif ($self->fmt eq 'html') { }