| line |
true |
false |
branch |
|
27
|
148 |
2036 |
@_ ? : |
|
34
|
3 |
8 |
if ref $self |
|
49
|
54 |
591 |
unless my $result = $self->_css->select_one(@_) |
|
58
|
6 |
162 |
$tree->[0] ne 'tag' ? : |
|
59
|
128 |
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
|
184 |
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 |
94 |
if +(my $tree = $self->tree)->[0] ne "tag" |
|
172
|
93 |
1 |
unless $tag |
|
183
|
1993 |
2714 |
@_ > 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
|
2012 |
1340 |
@_ > 1 ? : |
|
218
|
4 |
16 |
if +(my $tree = $self->tree)->[0] eq "root" |
|
229
|
8 |
52 |
if ($_->[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 |
1232 |
unless my $tree = shift() |
|
289
|
45 |
1187 |
shift() ? : |
|
295
|
46 |
26 |
$_ eq $child ? : |
|
299
|
182 |
41 |
$_[0][0] eq 'tag' ? : |
|
303
|
59 |
21 |
unless builtin::blessed($input) and $input->isa("Mojo::DOM58") |
|
306
|
20 |
1 |
$tree->[0] eq 'root' ? : |
|
315
|
21 |
20 |
if ($_[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 |
1108 |
$_[0][0] eq 'root' ? : |
|
344
|
926 |
214 |
if ($type eq 'text' or $type eq 'cdata' or $type eq 'raw') { } |
|
|
155 |
61 |
elsif ($type eq 'tag' and $all) { } |
|
350
|
143 |
12 |
if $xml or $node->[1] ne "script" and $node->[1] ne "style" |
|
360
|
1 |
15 |
if +(my $tree = $self->tree)->[0] eq "root" and not $content |
|
361
|
1 |
13 |
if $tree->[0] ne "root" and $tree->[0] ne "tag" and $content |
|
367
|
2 |
12 |
unless $current |
|
370
|
5 |
7 |
if ($content) |