| line |
true |
false |
branch |
|
27
|
69 |
694 |
unless my $result = $self->_css->select_one(@_) |
|
36
|
6 |
175 |
$tree->[0] ne 'tag' ? : |
|
37
|
133 |
48 |
unless @_ |
|
40
|
44 |
4 |
unless @_ > 1 or ref $_[0] |
|
43
|
1 |
3 |
ref $_[0] ? : |
|
57
|
28 |
31 |
if ($type eq "root" or $type eq "tag") |
|
58
|
21 |
7 |
if @_ |
|
63
|
28 |
3 |
unless @_ |
|
83
|
2 |
16 |
if +(my $tree = $self->tree)->[0] ne "tag" |
|
86
|
5 |
11 |
$tree->[1] =~ /^(.*?):/u ? : |
|
91
|
13 |
22 |
if ($ns) { } |
|
|
10 |
12 |
elsif (defined $attrs->{'xmlns'}) { } |
|
103
|
225 |
2172 |
@_ ? : |
|
110
|
3 |
8 |
if ref $self |
|
119
|
0 |
48 |
if +(my $tree = $self->tree)->[0] eq "root" |
|
123
|
261 |
0 |
if ${$_[0];}->parse($_[1]) |
|
138
|
8 |
16 |
if +(my $tree = $self->tree)->[0] eq "root" |
|
144
|
3 |
11 |
unless my $tree = _ancestors($self->tree, 1) |
|
149
|
2 |
11 |
unless +(my $tree = (shift())->tree)->[0] eq "tag" |
|
155
|
2 |
7 |
if +(my $tree = $self->tree)->[0] ne "tag" |
|
161
|
2 |
99 |
if +(my $tree = $self->tree)->[0] ne "tag" |
|
162
|
98 |
1 |
unless $tag |
|
173
|
2129 |
2957 |
@_ > 1 ? : |
|
181
|
10 |
22 |
if (my $tag = $self->tag) eq "option" |
|
185
|
5 |
9 |
if $tag eq "input" and $type eq 'radio' || $type eq 'checkbox' |
|
188
|
1 |
11 |
$tag eq 'textarea' ? : |
|
|
12 |
5 |
if $tag ne "select" |
|
193
|
1 |
1 |
$v->size ? : |
|
|
2 |
3 |
exists $self->{'multiple'} ? : |
|
201
|
2148 |
1465 |
@_ > 1 ? : |
|
206
|
4 |
16 |
if +(my $tree = $self->tree)->[0] eq "root" |
|
216
|
8 |
52 |
$_->[0] eq 'tag' ? : |
|
223
|
3 |
53 |
unless $tree = _parent($tree) |
|
226
|
11 |
42 |
$root ? : |
|
241
|
2 |
38 |
unless ($tree->[0] eq "root" or $tree->[0] eq "tag") |
|
243
|
1 |
1 |
$start ? : |
|
246
|
12 |
26 |
$start ? : |
|
247
|
21 |
17 |
$offset ? : |
|
262
|
60 |
46 |
$node->[0] eq 'tag' ? : |
|
270
|
20 |
10 |
$_[1] ? : |
|
273
|
0 |
1317 |
unless my $tree = shift() |
|
275
|
45 |
1272 |
shift() ? : |
|
281
|
46 |
26 |
$_ eq $child ? : |
|
285
|
184 |
41 |
$_[0][0] eq 'tag' ? : |
|
289
|
63 |
21 |
unless &blessed($input) and $input->isa("Mojo::DOM") |
|
291
|
20 |
1 |
$tree->[0] eq 'root' ? : |
|
300
|
21 |
20 |
$_[1] ? : |
|
305
|
2 |
4 |
defined $i ? : |
|
|
6 |
82 |
if $tree->[0] eq "root" |
|
311
|
30 |
52 |
if ($tail) { } |
|
314
|
60 |
22 |
if $tags |
|
316
|
4 |
24 |
$i == -1 && !@$nodes ? : |
|
|
28 |
54 |
defined $i ? : |
|
319
|
203 |
1191 |
$_[0][0] eq 'root' ? : |
|
329
|
1007 |
218 |
if ($type eq 'text' or $type eq 'cdata' or $type eq 'raw') { } |
|
|
155 |
65 |
elsif ($type eq 'tag' and $all) { } |
|
333
|
143 |
12 |
if $xml or $node->[1] ne "script" and $node->[1] ne "style" |
|
343
|
1 |
15 |
if +(my $tree = $self->tree)->[0] eq "root" and not $content |
|
344
|
1 |
13 |
if $tree->[0] ne "root" and $tree->[0] ne "tag" and $content |
|
350
|
2 |
12 |
unless $current |
|
353
|
5 |
7 |
if ($content) |