Yet Another CPAN Grep

WebService-TaobaoIP ( X/XI/XIAODONG/WebService-TaobaoIP-0.03.tar.gz, XIAODONG, 2013; MetaCPAN )

WebService-TaobaoIP/lib/WebService/TaobaoIP.pm ( view source; MetaCPAN )

P;

# ABSTRACT: Perl interface to Taobao IP API
use strict;
use warnings;
use utf8;
use Carp;
use JSON::XS;
use LWP::UserAgent;

our $VERSION = '0.03'; # VERSION

binmode STDOUT, ':encoding(UTF8)';

s

nt->new;
    my $res = $ua->get($full_url);

    if ( $res->is_success )
    {
        my $info = JSON::XS->new->decode( $res->content );
        if ( $info->{code} == 0 )
        {
            %$self