File Coverage

blib/lib/WebService/DeathByCaptcha.pm

Criterion	Covered	Total	%
statement	20	55	36.3
branch	0	16	0.0
condition	0	18	0.0
subroutine	7	13	53.8
pod	0	5	0.0
total	27	107	25.2

package WebService::DeathByCaptcha;

use strict;
use 5.008_005;
our $VERSION = '0.02';

use Carp 'croak';
use LWP::UserAgent;
use JSON;
use Try::Tiny;

use vars qw/$errstr/;
sub errstr { $errstr }

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

    $args{username} or croak "username is required.\n";
    $args{password} or croak "password is required.\n";
    $args{ua} ||= LWP::UserAgent->new;
    $args{ua}->default_header('Accept' => 'application/json');
    $args{url} ||= 'http://api.dbcapi.me/api/captcha';
    $args{sleep} ||= 3;

    return bless \%args, $class;
}

sub recaptcha {
    my $self = shift;
    my %params = @_ % 2 ? %{$_[0]} : @_;

    $params{googlekey} or croak "googlekey is required.\n";
    $params{pageurl}   or croak "pageurl is required.\n";

    return $self->request(
        __method => 'POST',
        type => 4,
        token_params => encode_json(\%params)
    );
}

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

    return $self->request(
        url => "http://api.dbcapi.me/api/captcha/$id"
    );
}

sub request {
    my ($self, %params) = @_;

    $params{username} ||= $self->{username};
    $params{password} ||= $self->{password};
    my $url = delete $params{url} || $self->{url};

    my $res;
    my $method = delete $params{__method} || 'GET';
    if ($method eq 'POST') {
        $res = $self->{ua}->post($url, \%params);
    } else {
        my $uri = URI->new($url);
        $uri->query_form(%params);
        $res = $self->{ua}->get($uri->as_string);
    }

    # print Dumper(\$res); use Data::Dumper;

    my $res = try { decode_json($res->content) };
    return $res if $res;

    $errstr = "Failed to $method $url: " . $res->status_line;
    return;
}

1;
__END__