| line |
true |
false |
branch |
|
38
|
0 |
0 |
if @_ |
|
39
|
0 |
0 |
unless $$self{'user_agent'} |
|
61
|
0 |
43 |
if (blessed $stuff and $stuff->isa('URI')) { } |
|
|
0 |
43 |
elsif (blessed $stuff and $stuff->isa('HTTP::Response')) { } |
|
|
3 |
40 |
elsif (blessed $stuff and $stuff->isa('HTML::Element')) { } |
|
|
0 |
40 |
elsif (ref $stuff and ref $stuff eq 'SCALAR') { } |
|
66
|
0 |
0 |
if ($stuff->is_success) { } |
|
92
|
37 |
0 |
if (@keys == 1) { } |
|
|
0 |
0 |
elsif (@keys) { } |
|
107
|
37 |
6 |
if $retval |
|
116
|
40 |
0 |
if $t->can('store_comments') |
|
129
|
4 |
39 |
$exp =~ m[^(?:/|id\()] ? : |
|
135
|
0 |
43 |
if ($@) |
|
139
|
0 |
43 |
unless @nodes |
|
140
|
1 |
42 |
if $first |
|
143
|
3 |
40 |
if (not defined $val) { } |
|
|
9 |
31 |
elsif ($key =~ s/\[\]$//) { } |
|
144
|
3 |
0 |
if (ref $key and ref $key eq 'CODE') { } |
|
166
|
0 |
73 |
if (ref $val and ref $val eq 'CODE') { } |
|
|
3 |
70 |
elsif (blessed $val and $val->isa('Web::Scraper')) { } |
|
|
9 |
61 |
elsif ($val =~ s/^@//) { } |
|
|
31 |
30 |
elsif (lc $val eq 'content' or lc $val eq 'text') { } |
|
|
7 |
23 |
elsif (lc $val eq 'raw' or lc $val eq 'html') { } |
|
|
3 |
20 |
elsif (ref $val eq 'HASH') { } |
|
|
20 |
0 |
elsif (ref $val eq 'ARRAY') { } |
|
173
|
5 |
4 |
if ($uri and is_link_element($node, $val)) |
|
184
|
28 |
0 |
$node->can('getValue') ? : |
|
|
3 |
28 |
$node->isTextNode ? : |
|
190
|
0 |
7 |
if ($node->isTextNode) |
|
191
|
0 |
0 |
if ($HTML::TreeBuilder::XPath::VERSION < 0.09) { } |
|
227
|
10 |
14 |
if (ref $filter eq 'CODE') { } |
|
|
8 |
6 |
elsif (ref $filter eq 'Regexp') { } |
|
|
5 |
1 |
elsif (not ref $filter) { } |
|
|
1 |
0 |
elsif (blessed $filter and $filter->can('filter')) { } |
|
233
|
2 |
6 |
if (%+) { } |
|
|
5 |
1 |
elsif (@unnamed) { } |
|
243
|
0 |
5 |
$filter =~ s/^\+// ? : |
|
244
|
0 |
5 |
unless ($module->isa('Web::Scraper::Filter')) |
|
245
|
0 |
0 |
unless $module->require |
|
256
|
0 |
24 |
if ($@) |
|
262
|
8 |
16 |
if ($retval =~ /^\d+$/ and $_ ne $value or defined $retval and $retval eq '') { } |
|
275
|
5 |
0 |
if $attr eq $elem |