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} |