File Coverage

blib/lib/WWW/Baidu/ZhanZhang.pm

Criterion	Covered	Total	%
statement	11	28	39.2
branch	0	14	0.0
condition	0	2	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	15	52	28.8

package WWW::Baidu::ZhanZhang;

use strict;
use 5.008_005;
our $VERSION = '0.01';
use Carp qw/croak/;
use Mojo::UserAgent;

sub new {
    my $class = shift;
    my $args = scalar @_ % 2 ? shift : { @_ };

    # validate
    $args->{site}  or croak 'site is required';
    $args->{token} or croak 'token is required';

    unless ( $args->{ua} ) {
        my $ua_args = delete $args->{ua_args} || {};
        $args->{ua} = Mojo::UserAgent->new(%$ua_args);
    }

    bless $args, $class;
}

sub post_urls {
    my ($self, @urls) = @_;

    my $url = "http://data.zz.baidu.com/urls?site=" . $self->{site} . "&token=" . $self->{token};
    $url .= "&type=" . $self->{type} if $self->{type};

    my $tx = $self->{ua}->post($url => { 'Content-Type' => 'text/plain' } => join("\n", @urls));
    if (my $res = $tx->success) {
        return $res->json;
    } else {
        my $err = $tx->error;
        croak "$err->{code} response: $err->{message}" if $err->{code};
        croak "Connection error: $err->{message}";
    }
}

1;
__END__