Branch Coverage

blib/lib/Tags/HTML/Image.pm
Criterion Covered Total %
branch 26 42 61.9


line true false branch
82 1 8 unless (defined $image)
85 2 6 unless (builtin::blessed($image) and $image->isa("Data::Image"))
92 3 3 if (defined $self->{'_image'}->url) { }
1 2 elsif (defined $self->{'_image'}->url_cb) { }
1 1 elsif (defined $self->{'img_src_cb'}) { }
103 0 5 if (defined $self->{'img_comment_cb'}) { }
107 0 5 if (defined $image->comment)
113 0 5 if (@{$self->{'_image_comment_tags'};})
137 0 5 if (defined $self->{'img_select_cb'})
139 0 0 if (ref $select_hr eq "HASH" and exists $select_hr->{'value'})
146 0 0 exists $select_hr->{'value'} ? :
172 1 1 unless (exists $self->{'_image'})
183 0 1 if (defined $self->{'title'})
193 0 1 if (@{$self->{'_image_select_tags'};})
200 0 1 if ($self->{'_image'}->comment)
213 0 1 if (@{$self->{'_image_comment_tags'};})
222 0 1 if (defined $self->{'title'})
239 1 1 unless (exists $self->{'_image'})
244 1 0 unless (defined $self->{'img_width'})
246 0 1 if (defined $self->{'fit_minus'})
270 0 1 defined $self->{'img_width'} ? :