| line |
true |
false |
branch |
|
24
|
111 |
1773 |
@_ ? : |
|
38
|
35 |
418 |
unless my $result = $self->_css->select_one(@_) |
|
47
|
6 |
143 |
$tree->[0] ne 'tag' ? : |
|
48
|
109 |
40 |
unless @_ |
|
51
|
36 |
4 |
unless @_ > 1 or ref $_[0] |
|
54
|
1 |
3 |
ref $_[0] ? : |
|
68
|
22 |
31 |
if ($type eq 'root' or $type eq 'tag') |
|
69
|
15 |
7 |
if @_ |
|
74
|
28 |
3 |
unless @_ |
|
91
|
2 |
16 |
if (my $tree = $self->tree)->[0] ne 'tag' |
|
94
|
5 |
11 |
$tree->[1] =~ /^(.*?):/ ? : |
|
99
|
13 |
22 |
if ($ns) { } |
|
|
10 |
12 |
elsif (defined $attrs->{'xmlns'}) { } |
|
113
|
6 |
95 |
if $self->tree->[0] eq 'root' |
|
132
|
8 |
14 |
if (my $tree = $self->tree)->[0] eq 'root' |
|
138
|
3 |
8 |
unless my $tree = $self->_ancestors(1) |
|
144
|
2 |
7 |
if (my $tree = $self->tree)->[0] ne 'tag' |
|
150
|
2 |
83 |
if (my $tree = $self->tree)->[0] ne 'tag' |
|
151
|
82 |
1 |
unless $tag |
|
170
|
2 |
7 |
defined $self->{'value'} ? : |
|
|
9 |
16 |
if (my $tag = $self->tag) eq 'option' |
|
175
|
3 |
2 |
defined $self->{'value'} ? : |
|
|
5 |
4 |
if $tag eq 'input' and $type eq 'radio' || $type eq 'checkbox' |
|
179
|
1 |
6 |
$tag eq 'textarea' ? : |
|
|
7 |
4 |
if $tag ne 'select' |
|
183
|
1 |
1 |
$v->size ? : |
|
|
2 |
2 |
exists $self->{'multiple'} ? : |
|
194
|
4 |
11 |
if (my $tree = $self->tree)->[0] eq 'root' |
|
204
|
8 |
52 |
$_->[0] eq 'tag' ? : |
|
212
|
647 |
10 |
unless defined $trim |
|
213
|
5 |
1456 |
if $_->[1] eq 'pre' |
|
|
641 |
16 |
if $trim and $tree->[0] ne 'root' |
|
222
|
3 |
674 |
unless my $tree = $self->_parent |
|
226
|
8 |
666 |
$root ? : |
|
241
|
2 |
26 |
unless ($tree->[0] eq 'root' or $tree->[0] eq 'tag') |
|
243
|
1 |
1 |
$start ? : |
|
246
|
8 |
18 |
$start ? : |
|
247
|
15 |
11 |
$offset ? : |
|
257
|
5183 |
3657 |
unless @_ |
|
267
|
38 |
41 |
$node->[0] eq 'tag' ? : |
|
275
|
20 |
10 |
$_[1] ? : |
|
278
|
0 |
1029 |
unless my $tree = shift() |
|
280
|
33 |
996 |
shift() ? : |
|
286
|
37 |
25 |
$_ eq $child ? : |
|
290
|
759 |
43 |
$_[0]->type eq 'tag' ? : |
|
302
|
20 |
15 |
unless $selector |
|
309
|
6 |
51 |
unless my $parent = $self->parent |
|
314
|
51 |
233 |
if not $match and $node eq $tree |
|
315
|
118 |
115 |
if $tags and $node->[0] ne 'tag' |
|
316
|
71 |
44 |
$match ? : |
|
319
|
28 |
23 |
defined $i ? : |
|
330
|
160 |
927 |
$_[0][0] eq 'root' ? : |
|
338
|
152 |
15 |
unless $nodes->[$i][0] eq 'text' and $next->[0] eq 'text' |
|
348
|
675 |
28 |
$trim ? : |
|
|
703 |
229 |
if ($type eq 'text') { } |
|
|
33 |
196 |
elsif ($type eq 'cdata' or $type eq 'raw') { } |
|
|
133 |
65 |
elsif ($type eq 'tag' and $recurse) { } |
|
356
|
4 |
129 |
$node->[1] eq 'pre' ? : |
|
360
|
23 |
909 |
if $text =~ /\S\z/ and $chunk =~ /^[^.!?,;:\s]+/ |
|
363
|
819 |
113 |
if $chunk =~ /\S+/ or not $trim |
|
372
|
1 |
11 |
if (my $tree = $self->tree)->[0] eq 'root' and not $content |
|
373
|
1 |
9 |
if $tree->[0] ne 'root' and $tree->[0] ne 'tag' and $content |
|
379
|
2 |
8 |
unless $current |
|
382
|
3 |
5 |
if ($content) |