| line |
true |
false |
branch |
|
130
|
3 |
8 |
unless defined $engine |
|
135
|
1 |
10 |
if $@ |
|
224
|
0 |
20 |
if (-d $_ and /^[a-z]/) |
|
232
|
4 |
16 |
unless ($sFullPath =~ s/\.pm\Z//) |
|
260
|
8 |
2 |
unless -d $sDir |
|
339
|
1 |
6 |
if $self->{'_debug'} |
|
347
|
2 |
2 |
if (generic_option($sKey)) |
|
349
|
1 |
1 |
if $self->{'_debug'} |
|
354
|
7 |
0 |
if $self->{'state'} == 1 |
|
409
|
1 |
3 |
unless (@_) |
|
415
|
1 |
2 |
if ($sRef =~ /\AHTTP::Cookies/) { } |
|
|
1 |
1 |
elsif (not ref $arg) { } |
|
521
|
3 |
14 |
if (@_) { } |
|
659
|
1 |
10 |
if defined $iArg and $iArg eq '' |
|
662
|
3 |
8 |
if (defined $iArg and 0 <= $iArg) |
|
669
|
1 |
7 |
if ($self->{'state'} ne 4 and $self->{'state'} ne 3) |
|
725
|
0 |
6 |
if $self->{'_debug'} |
|
732
|
0 |
6 |
if $self->{'maximum_to_retrieve'} < $iMax |
|
759
|
1 |
45 |
if $self->{'next_to_return'} >= $self->{'maximum_to_retrieve'} |
|
762
|
44 |
1 |
if ($self->{'next_to_return'} <= $#{$$self{'cache'};}) |
|
770
|
1 |
0 |
if ($self->{'state'} == 3) |
|
806
|
1 |
2 |
if defined $desired and 0 <= $desired |
|
918
|
1 |
1 |
wantarray ? : |
|
992
|
1 |
16 |
if $self->{'_debug'} |
|
1006
|
2 |
15 |
if (caller 2) |
|
1009
|
2 |
0 |
if (1 < scalar @as) |
|
1012
|
2 |
0 |
if $as[3] =~ /gui_query/ |
|
1109
|
2 |
2 |
if ($sUA ne '') |
|
1113
|
1 |
1 |
if (not $@) { } |
|
1118
|
0 |
1 |
if (ref $ua and not $@) { } |
|
1140
|
4 |
4 |
unless (@_) |
|
1143
|
4 |
0 |
if ref $self->{'user_agent'} |
|
1148
|
4 |
0 |
unless (ref $ua) |
|
1150
|
4 |
0 |
if ($non_robot) { } |
|
1165
|
1 |
3 |
if $self->is_http_proxy |
|
1166
|
0 |
4 |
if ($self->env_proxy) |
|
1229
|
0 |
0 |
if (50 <= $self->{'_debug'}) |
|
1233
|
0 |
0 |
if ($self->{'search_from_file'}) { } |
|
1241
|
0 |
0 |
if ($method eq 'POST') { } |
|
1256
|
0 |
0 |
if ($self->is_http_proxy_auth_data) |
|
1261
|
0 |
0 |
if ref $self->{'_cookie_jar'} |
|
1263
|
0 |
0 |
if ($self->{'_http_referer'} and $self->{'_http_referer'} ne '') |
|
1267
|
0 |
0 |
if ref($s) =~ /URI/ |
|
1270
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1279
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1280
|
0 |
0 |
if (ref $self->{'_cookie_jar'}) |
|
1283
|
0 |
0 |
if $self->{'_cookie_jar_we_save'} |
|
1288
|
0 |
0 |
if ($self->{'search_to_file'} and $response->is_success) |
|
1292
|
0 |
0 |
if $response->is_success |
|
1293
|
0 |
0 |
if $response->is_error |
|
1294
|
0 |
0 |
if $response->headers->header('Client-Warning') =~ /redirect loop detected/i |
|
1295
|
0 |
0 |
if ($response->is_redirect or $response->message =~ /Object moved/i) |
|
1305
|
0 |
0 |
if $sURLredir eq $sURL |
|
1306
|
0 |
0 |
if 2 <= $self->{'_debug'} |
|
1312
|
0 |
0 |
if ref $self->{'_cookie_jar'} |
|
1313
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1325
|
0 |
0 |
unless (defined $self->{'search_filename'}) |
|
1327
|
0 |
0 |
unless defined $fn |
|
1331
|
0 |
0 |
unless defined $fn |
|
1342
|
0 |
0 |
unless (defined $self->{'search_from_file_hash'}) |
|
1343
|
0 |
0 |
unless open TABLE, "<$fn" |
|
1355
|
0 |
0 |
if (defined $i) { } |
|
1358
|
0 |
0 |
unless open FILE, "<$fn.$i" |
|
1385
|
0 |
0 |
if $self->{'search_to_file_index'} == 0 |
|
1386
|
0 |
0 |
unless open TABLE, ">>$fn" |
|
1390
|
0 |
0 |
unless open FILE, ">$fn.$i" |
|
1447
|
1 |
1 |
if (ref $s) |
|
1491
|
0 |
0 |
if $self->{'_debug'} |
|
1494
|
0 |
0 |
if ($self->can('native_setup_search')) |
|
1511
|
1 |
8 |
if $self->{'_debug'} |
|
1568
|
1 |
2 |
if $base eq '' |
|
1569
|
2 |
1 |
unless $url ne '' and $base ne '' |
|
1585
|
0 |
7 |
if $self->{'_debug'} |
|
1586
|
0 |
7 |
if $self->{'state'} == 3 |
|
1587
|
2 |
5 |
if $self->{'state'} == 1 |
|
1589
|
4 |
3 |
unless ($self->{'_allow_empty_query'}) |
|
1591
|
0 |
4 |
unless (defined $self->{'native_query'}) |
|
1597
|
2 |
2 |
if ($self->{'native_query'} eq '') |
|
1605
|
0 |
5 |
if ($self->{'number_retrieved'} >= $self->{'maximum_to_retrieve'}) |
|
1607
|
0 |
0 |
if $self->{'_debug'} |
|
1612
|
0 |
5 |
if ($self->{'requests_made'} > $self->{'maximum_to_retrieve'}) |
|
1614
|
0 |
0 |
if $self->{'_debug'} |
|
1620
|
0 |
5 |
if $self->{'_debug'} |
|
1623
|
5 |
0 |
if $res == 0 |
|
1697
|
0 |
1 |
if $self->{'_debug'} |
|
1700
|
0 |
1 |
if $self->can('parse_tree') |
|
1708
|
0 |
0 |
if ($self->can('native_retrieve_some')) |
|
1715
|
0 |
0 |
if $self->{'_debug'} |
|
1717
|
0 |
0 |
unless defined $self->{'_next_url'} |
|
1718
|
0 |
0 |
if $self->{'_next_url'} eq '' |
|
1724
|
0 |
0 |
if 1 < $self->{'_next_to_retrieve'} or $self->need_to_delay |
|
1728
|
0 |
0 |
if $self->{'_debug'} |
|
1730
|
0 |
0 |
if 2 <= $self->{'_debug'} |
|
1737
|
0 |
0 |
unless ($response->is_success) |
|
1739
|
0 |
0 |
if ($self->{'_debug'}) |
|
1749
|
0 |
0 |
if (ref $self->{'_treebuilder'}) { } |
|
1774
|
0 |
0 |
if 1 < $self->{'_debug'} |
|
1789
|
3 |
3 |
unless my $oSR = shift() |
|
1790
|
2 |
1 |
unless ref($oSR) =~ /WWW::Search(::)?Result/ |
|
1881
|
0 |
4 |
if generic_option($key) |
|
1883
|
1 |
3 |
unless defined $rh->{$key} |