Branch Coverage

blib/lib/Mojo/DOM58.pm
Criterion Covered Total %
branch 121 124 97.5


line true false branch
27 127 1868 @_ ? :
34 3 8 if ref $self
49 43 493 unless my $result = $self->_css->select_one(@_)
58 6 160 $tree->[0] ne 'tag' ? :
59 126 40 unless @_
62 36 4 unless @_ > 1 or ref $_[0]
65 1 3 ref $_[0] ? :
79 24 31 if ($type eq 'root' or $type eq 'tag')
80 17 7 if @_
85 28 3 unless @_
105 2 16 if +(my $tree = $self->tree)->[0] ne 'tag'
108 5 11 $tree->[1] =~ /^(.*?):/ ? :
113 13 22 if ($ns) { }
10 12 elsif (defined $attrs->{'xmlns'}) { }
127 0 48 if +(my $tree = $self->tree)->[0] eq 'root'
131 154 0 if ${$_[0];}->parse($_[1])
146 8 16 if +(my $tree = $self->tree)->[0] eq 'root'
152 3 9 unless my $tree = _ancestors($self->tree, 1)
157 2 11 unless +(my $tree = (shift())->tree)->[0] eq 'tag'
165 2 7 if +(my $tree = $self->tree)->[0] ne 'tag'
171 2 91 if +(my $tree = $self->tree)->[0] ne 'tag'
172 90 1 unless $tag
183 1836 2459 @_ > 1 ? :
191 2 8 defined $self->{'value'} ? :
10 17 if (my $tag = $self->tag) eq 'option'
196 3 2 defined $self->{'value'} ? :
5 4 if $tag eq 'input' and $type eq 'radio' || $type eq 'checkbox'
200 1 6 $tag eq 'textarea' ? :
7 5 if $tag ne 'select'
205 1 1 $v->size ? :
2 3 exists $self->{'multiple'} ? :
213 1847 1189 @_ > 1 ? :
218 4 16 if +(my $tree = $self->tree)->[0] eq 'root'
229 8 52 $_->[0] eq 'tag' ? :
236 3 51 unless $tree = _parent($tree)
240 9 42 $root ? :
255 2 34 unless ($tree->[0] eq 'root' or $tree->[0] eq 'tag')
257 1 1 $start ? :
260 12 22 $start ? :
261 17 17 $offset ? :
276 60 42 $node->[0] eq 'tag' ? :
284 20 10 $_[1] ? :
287 0 1096 unless my $tree = shift()
289 45 1051 shift() ? :
295 46 26 $_ eq $child ? :
299 182 41 $_[0][0] eq 'tag' ? :
303 59 21 unless &blessed($input) and $input->isa('Mojo::DOM58')
306 20 1 $tree->[0] eq 'root' ? :
315 21 20 $_[1] ? :
320 2 4 defined $i ? :
6 82 if $tree->[0] eq 'root'
326 30 52 if ($tail) { }
329 60 22 if $tags
331 4 24 $i == -1 && !@$nodes ? :
28 54 defined $i ? :
334 197 972 $_[0][0] eq 'root' ? :
344 747 178 if ($type eq 'text' or $type eq 'cdata' or $type eq 'raw') { }
121 59 elsif ($type eq 'tag' and $all) { }
358 1 15 if +(my $tree = $self->tree)->[0] eq 'root' and not $content
359 1 13 if $tree->[0] ne 'root' and $tree->[0] ne 'tag' and $content
365 2 12 unless $current
368 5 7 if ($content)