File Coverage

blib/lib/WebService/Diffbot.pm

Criterion	Covered	Total	%
statement	12	33	36.3
branch	0	12	0.0
condition	0	3	0.0
subroutine	4	8	50.0
pod	0	3	0.0
total	16	59	27.1

# ABSTRACT: Diffbot Perl API
package WebService::Diffbot;
{
  $WebService::Diffbot::VERSION = '0.003';
}

use Moo;
use namespace::clean;

use JSON qw( decode_json encode_json );
use LWP::UserAgent;

has api_url => ( is => 'ro', default => sub { 'http://api.diffbot.com/v2/' } );
has automatic_api => ( is => 'rw', default => sub { 'article' } );
has $_ => ( is => 'rw', required => 1 ) for qw( token url );
has $_ => ( is => 'rw' ) for qw( fields timeout callback );
has verbose => ( is => 'rw', default => sub { 0 } );

sub article {
    my $self = shift;
    my %args = @_;

    $self->automatic_api('article');

    $self->url( $args{url} ) if $args{url};

    $self->_process;
};

sub frontpage {
    my $self = shift;
    my %args = @_;

    $self->automatic_api('frontpage');

    $self->url( $args{url} ) if $args{url};

    $self->_process;
};

sub version {
    __PACKAGE__->VERSION;
};

sub _process {
    my $self = shift;

    return if not defined $self->token or not defined $self->url;

    my $uri = URI->new($self->api_url . $self->automatic_api);

    $uri->query_form(
        token   => $self->token,
        url     => $self->url,
    );

    my $response = LWP::UserAgent->new->get($uri);

    die $response if !$response->is_success;

    my $content = decode_json $response->decoded_content;

    die $content->{error} if $content->{error};
    print STDERR $content->{warning} if $content->{warning};

    return $content;
}

1;

__END__