| line |
true |
false |
branch |
|
32
|
3 |
117 |
ref $options eq 'HASH' ? : |
|
|
2 |
120 |
ref $self ? : |
|
45
|
0 |
474 |
unless my $self = $class->_resolve_new($stuff, $options) |
|
48
|
1 |
473 |
if $options->{'indent'} |
|
58
|
2 |
475 |
unless defined $stuff |
|
60
|
268 |
207 |
if (&blessed($stuff)) |
|
61
|
149 |
119 |
if $stuff->isa("HTML::Element") |
|
64
|
2 |
117 |
if $stuff->isa("URI") |
|
67
|
117 |
0 |
if $stuff->isa($class) |
|
73
|
2 |
205 |
if ref $stuff eq "ARRAY" |
|
75
|
6 |
199 |
if $stuff =~ m[^(?:https?|file)://] |
|
77
|
181 |
18 |
if $stuff =~ /<.*?>/ |
|
79
|
18 |
0 |
if CORE::not $stuff =~ /\n/ and -f $stuff |
|
91
|
3 |
5 |
unless ($RESPONSE->is_success) |
|
114
|
236 |
1 |
ref $_ ? : |
|
124
|
1190 |
78 |
ref $_[0] eq 'ARRAY' ? : |
|
171
|
1 |
294 |
ref $selector ? : |
|
182
|
2 |
18 |
if ($selector) |
|
183
|
0 |
2 |
ref $selector ? : |
|
198
|
1 |
145 |
$_->isa('HTML::TreeBuilder::XPath::TextNode') || $_->isa('HTML::TreeBuilder::XPath::CommentNode') ? : |
|
|
146 |
2 |
ref $_ ? : |
|
201
|
20 |
85 |
if defined $args{'join'} |
|
203
|
22 |
63 |
wantarray ? : |
|
209
|
4 |
44 |
if (@_) |
|
224
|
53 |
13 |
ref $_ ? : |
|
228
|
18 |
26 |
wantarray ? : |
|
234
|
2 |
86 |
if (@_) |
|
240
|
84 |
2 |
ref $_ ? : |
|
242
|
6 |
80 |
wantarray ? : |
|
248
|
66 |
34 |
if (@_ == 1) |
|
251
|
10 |
56 |
wantarray ? : |
|
256
|
2 |
34 |
ref $value eq 'CODE' ? : |
|
259
|
4 |
38 |
if ($code) |
|
263
|
2 |
2 |
if $orig eq $_ |
|
276
|
8 |
12 |
if (@_) { } |
|
279
|
0 |
8 |
if $self->size == 0 |
|
283
|
2 |
6 |
if ref $new_id eq "CODE" |
|
285
|
2 |
4 |
if ($self->size == 1) { } |
|
297
|
4 |
8 |
wantarray ? : |
|
315
|
2 |
10 |
$_ eq '~comment' ? : |
|
316
|
9 |
2 |
ref $_ ? : |
|
|
0 |
11 |
ref $_ eq 'HTML::TreeBuilder::XPath::CommentNode' ? : |
|
|
1 |
11 |
ref $_ eq 'HTML::TreeBuilder::XPath::TextNode' ? : |
|
322
|
0 |
12 |
wantarray ? : |
|
355
|
48 |
16 |
if (ref $_[0] eq 'CODE') { } |
|
365
|
0 |
16 |
ref $_[0] ? : |
|
402
|
8 |
10 |
if (ref $rep eq "CODE") |
|
407
|
14 |
4 |
unless ref $rep |
|
414
|
17 |
1 |
if ref $r |
|
416
|
17 |
1 |
if ref $r and $node->parent |
|
421
|
2 |
8 |
if ref $replacement eq (ref $self || $self) |
|
506
|
4 |
16 |
ref $class eq 'CODE' ? : |
|
510
|
28 |
4 |
unless $current_class =~ /(?:^|\s)$_(?:\s|$)/ |
|
529
|
0 |
20 |
unless defined $current_class |
|
531
|
4 |
16 |
ref $class eq 'CODE' ? : |
|
552
|
12 |
12 |
$_->has_class($class) ? : |
|
563
|
28 |
30 |
if $t->attr("class") =~ /(?:^|\s)$class(?:\s|$)/ |
|
580
|
2 |
75 |
if (@stuff == 2 and CORE::not ref $stuff[0] and $stuff[1]->isa('HTML::Element')) { } |
|
581
|
0 |
2 |
ref $stuff[0] ? : |
|
587
|
4 |
73 |
if $_->{'need_delete'} |
|
625
|
0 |
73 |
ref $selector ? : |
|
629
|
0 |
81 |
unless ref $e |
|
633
|
2 |
71 |
wantarray ? : |
|
641
|
0 |
38 |
ref $selector ? : |
|
678
|
18 |
51 |
if ($e->match($selector)) { } |
|
683
|
30 |
21 |
if ($current[1]) { } |
|
693
|
2 |
4 |
if ($args{'skip_leading'}) |
|
697
|
2 |
4 |
unless ($args{'pairs'}) |
|
709
|
1032 |
237 |
unless $_[0]{'need_delete'} |