CPAN::Groonga

package MYDan::API;
use strict;
use warnings;
use Carp;

use JSON;
use LWP::UserAgent;
use MYDan::Util::OptConf;
use URI::Escape;
use YAML::XS;

my $o; BEGIN{ $o = MYDan::Util::OptConf->load()->dump( 

uri";
    return +{ stat => JSON::true, data => $url } if $self->{urlonly};

    my $res = $self->{ua}->get( $url );
    my $cont = $res->content;
    return +{ stat => JSON::false, info => $res->cont

ent } unless $res->is_success;

    my $data = eval{ JSON::from_json $cont };
    return $@ ? +{ stat => JSON::false, info => $@ } : $data;
}

sub get
{
    my ( $self, $uri ) = @_;

    my $error = "

=> 'proxyip',
      '10.10.0.2' => 'proxyip',
 );

=cut

use strict;
use warnings;

use Carp;
use JSON;
use YAML::XS;
use Net::IP::Match::Regexp qw( match_ip create_iprange_regexp_depthfirst );
use Da

>is_success;
            }
            my $data = eval{ JSON->new->allow_nonref->utf8(1)->decode( $res->content ); };
            die "from_json fail: $@" if $@;
            $self{conf} = $data->{stat