rp 'croak';
use List::Util qw( shuffle );
use List::MoreUtils qw( uniq );
use LWP::UserAgent;
use JSON::PP;
use utf8;
use Geonode::Free::Proxy;
=head1 NAME
Geonode::Free::ProxyList - Get Free Geono
0;
return;
}
sub _create_proxy_list {
my ( $self, $struct ) = @_;
$struct = decode_json $struct;
my %proxies = map { $_->id => $_ } $self->get_all_proxies;
for my $item ( @{ $