| line |
true |
false |
branch |
|
29
|
0 |
6 |
unless get_args_as_hash(\@_, \my %args, {'timeout', 30}) |
|
52
|
0 |
16 |
unless get_args_as_hash(\@_, \my %args, {'type', 'elite', 'max_pages', 1}) |
|
74
|
1 |
15 |
unless exists $page_for{$args{'type'}} |
|
85
|
0 |
13 |
unless $mech->get($uri)->is_success |
|
88
|
1 |
12 |
if $page_type eq 'anonymous' |
|
90
|
0 |
13 |
if $page_type eq 'non-anonymous' |
|
100
|
13 |
0 |
if $args{'max_pages'} |
|
102
|
0 |
13 |
if $self->debug |
|
107
|
0 |
13 |
unless ($mech->get($_)->is_success) |
|
108
|
0 |
0 |
if $self->debug |
|
113
|
0 |
13 |
unless my $list_ref = $self->_parse_list($mech->res->content) |
|
126
|
0 |
9 |
unless get_args_as_hash(\@_, \my %args) |
|
133
|
0 |
9 |
if grep {not exists $valid_filters{$_};} keys %args |
|
139
|
0 |
9 |
unless my $list_ref = $self->list |
|
148
|
26 |
182 |
if (ref $args{$_} eq 'Regexp') { } |
|
149
|
12 |
14 |
if $proxy_ref->{$_} =~ /$args{$_}/ |
|
153
|
80 |
102 |
if $proxy_ref->{$_} eq $args{$_} |
|
158
|
118 |
116 |
if $is_good == keys %args |
|
166
|
0 |
0 |
$self->filtered_list ? : |
|
168
|
0 |
0 |
unless (@$proxies) |
|
177
|
0 |
0 |
$_->{'is_https'} eq 'true' ? : |
|
203
|
3005 |
57069 |
if ($t->is_start_tag('tr')) { } |
|
|
17887 |
39182 |
elsif ($nav{'get_data'} == 1 and $t->is_start_tag('td')) { } |
|
|
17939 |
21243 |
elsif ($nav{'data_cell'} and $t->is_text) { } |
|
|
3005 |
18238 |
elsif ($t->is_end_tag('tr')) { } |
|
216
|
13 |
2992 |
unless keys %current |
|
232
|
1 |
1 |
if (defined $type and $type eq 'net') { } |
|
242
|
1 |
15 |
if defined $url |
|
243
|
2 |
14 |
defined $self->{'url'} ? : |