| line |
true |
false |
branch |
|
129
|
3 |
9 |
unless defined $engine |
|
134
|
1 |
11 |
if $@ |
|
223
|
0 |
20 |
if (-d $_ and /^[a-z]/) |
|
231
|
4 |
16 |
unless ($sFullPath =~ s/\.pm\Z//) |
|
259
|
8 |
2 |
unless -d $sDir |
|
338
|
1 |
6 |
if $self->{'_debug'} |
|
346
|
2 |
2 |
if (generic_option($sKey)) |
|
348
|
1 |
1 |
if $self->{'_debug'} |
|
353
|
7 |
0 |
if $self->{'state'} == 1 |
|
408
|
1 |
3 |
unless (@_) |
|
414
|
1 |
2 |
if ($sRef =~ /\AHTTP::Cookies/) { } |
|
|
1 |
1 |
elsif (not ref $arg) { } |
|
520
|
3 |
14 |
if (@_) { } |
|
665
|
1 |
13 |
if defined $iArg and $iArg eq '' |
|
668
|
4 |
10 |
if (defined $iArg and 0 <= $iArg) |
|
675
|
2 |
8 |
if ($self->{'state'} ne 4 and $self->{'state'} ne 3) |
|
731
|
0 |
6 |
if $self->{'_debug'} |
|
738
|
0 |
6 |
if $self->{'maximum_to_retrieve'} < $iMax |
|
765
|
1 |
45 |
if $self->{'next_to_return'} >= $self->{'maximum_to_retrieve'} |
|
768
|
44 |
1 |
if ($self->{'next_to_return'} <= $#{$$self{'cache'};}) |
|
776
|
1 |
0 |
if ($self->{'state'} == 3) |
|
812
|
1 |
2 |
if defined $desired and 0 <= $desired |
|
924
|
1 |
1 |
wantarray ? : |
|
998
|
1 |
17 |
if $self->{'_debug'} |
|
1011
|
2 |
16 |
if (caller 2) |
|
1014
|
2 |
0 |
if (1 < scalar @as) |
|
1017
|
2 |
0 |
if $as[3] =~ /gui_query/ |
|
1114
|
2 |
2 |
if ($sUA ne '') |
|
1118
|
1 |
1 |
if (not $@) { } |
|
1123
|
0 |
1 |
if (ref $ua and not $@) { } |
|
1145
|
4 |
4 |
unless (@_) |
|
1148
|
4 |
0 |
if ref $self->{'user_agent'} |
|
1153
|
4 |
0 |
unless (ref $ua) |
|
1155
|
4 |
0 |
if ($non_robot) { } |
|
1170
|
1 |
3 |
if $self->is_http_proxy |
|
1171
|
0 |
4 |
if ($self->env_proxy) |
|
1234
|
0 |
0 |
if (50 <= $self->{'_debug'}) |
|
1238
|
0 |
0 |
if ($self->{'search_from_file'}) { } |
|
1246
|
0 |
0 |
if ($method eq 'POST') { } |
|
1261
|
0 |
0 |
if ($self->is_http_proxy_auth_data) |
|
1266
|
0 |
0 |
if ref $self->{'_cookie_jar'} |
|
1268
|
0 |
0 |
if ($self->{'_http_referer'} and $self->{'_http_referer'} ne '') |
|
1272
|
0 |
0 |
if ref($s) =~ /URI/ |
|
1275
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1284
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1285
|
0 |
0 |
if (ref $self->{'_cookie_jar'}) |
|
1288
|
0 |
0 |
if $self->{'_cookie_jar_we_save'} |
|
1293
|
0 |
0 |
if ($self->{'search_to_file'} and $response->is_success) |
|
1297
|
0 |
0 |
if $response->is_success |
|
1298
|
0 |
0 |
if $response->is_error |
|
1299
|
0 |
0 |
if $response->headers->header('Client-Warning') =~ /redirect loop detected/i |
|
1300
|
0 |
0 |
if ($response->is_redirect or $response->message =~ /Object moved/i) |
|
1310
|
0 |
0 |
if $sURLredir eq $sURL |
|
1311
|
0 |
0 |
if 2 <= $self->{'_debug'} |
|
1317
|
0 |
0 |
if ref $self->{'_cookie_jar'} |
|
1318
|
0 |
0 |
if 3 <= $self->{'_debug'} |
|
1330
|
0 |
0 |
unless (defined $self->{'search_filename'}) |
|
1332
|
0 |
0 |
unless defined $fn |
|
1336
|
0 |
0 |
unless defined $fn |
|
1347
|
0 |
0 |
unless (defined $self->{'search_from_file_hash'}) |
|
1348
|
0 |
0 |
unless open TABLE, "<$fn" |
|
1360
|
0 |
0 |
if (defined $i) { } |
|
1363
|
0 |
0 |
unless open FILE, "<$fn.$i" |
|
1390
|
0 |
0 |
if $self->{'search_to_file_index'} == 0 |
|
1391
|
0 |
0 |
unless open TABLE, ">>$fn" |
|
1395
|
0 |
0 |
unless open FILE, ">$fn.$i" |
|
1452
|
1 |
1 |
if (ref $s) |
|
1496
|
0 |
0 |
if $self->{'_debug'} |
|
1499
|
0 |
0 |
if ($self->can('native_setup_search')) |
|
1516
|
1 |
9 |
if $self->{'_debug'} |
|
1573
|
1 |
2 |
if $base eq '' |
|
1574
|
2 |
1 |
unless $url ne '' and $base ne '' |
|
1590
|
0 |
8 |
if $self->{'_debug'} |
|
1591
|
0 |
8 |
if $self->{'state'} == 3 |
|
1592
|
3 |
5 |
if $self->{'state'} == 1 |
|
1594
|
5 |
3 |
unless ($self->{'_allow_empty_query'}) |
|
1596
|
0 |
5 |
unless (defined $self->{'native_query'}) |
|
1602
|
3 |
2 |
if ($self->{'native_query'} eq '') |
|
1610
|
0 |
5 |
if ($self->{'number_retrieved'} >= $self->{'maximum_to_retrieve'}) |
|
1612
|
0 |
0 |
if $self->{'_debug'} |
|
1617
|
0 |
5 |
if ($self->{'requests_made'} > $self->{'maximum_to_retrieve'}) |
|
1619
|
0 |
0 |
if $self->{'_debug'} |
|
1625
|
0 |
5 |
if $self->{'_debug'} |
|
1628
|
5 |
0 |
if $res == 0 |
|
1702
|
0 |
1 |
if $self->{'_debug'} |
|
1705
|
0 |
1 |
if $self->can('parse_tree') |
|
1713
|
0 |
0 |
if ($self->can('native_retrieve_some')) |
|
1720
|
0 |
0 |
if $self->{'_debug'} |
|
1722
|
0 |
0 |
unless defined $self->{'_next_url'} |
|
1723
|
0 |
0 |
if $self->{'_next_url'} eq '' |
|
1729
|
0 |
0 |
if 1 < $self->{'_next_to_retrieve'} or $self->need_to_delay |
|
1733
|
0 |
0 |
if $self->{'_debug'} |
|
1735
|
0 |
0 |
if 2 <= $self->{'_debug'} |
|
1742
|
0 |
0 |
unless ($response->is_success) |
|
1744
|
0 |
0 |
if ($self->{'_debug'}) |
|
1754
|
0 |
0 |
if (ref $self->{'_treebuilder'}) { } |
|
1779
|
0 |
0 |
if 1 < $self->{'_debug'} |
|
1794
|
3 |
3 |
unless my $oSR = shift() |
|
1795
|
2 |
1 |
unless ref($oSR) =~ /WWW::Search(::)?Result/ |
|
1886
|
0 |
4 |
if generic_option($key) |
|
1888
|
1 |
3 |
unless defined $rh->{$key} |