File Coverage

lib/WebService/Readwise.pm

Criterion	Covered	Total	%
statement	20	38	52.6
branch	0	6	0.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	3	3	100.0
total	30	60	50.0

use strict;
use warnings;

use v5.010;

package WebService::Readwise;

# ABSTRACT: Perl module to interact with Readwise.io API
use HTTP::Tiny;
use JSON::MaybeXS;

use Moo;
use namespace::clean;


has token => (
    is       => 'ro',
    required => 0,
    default  => sub { return $ENV{WEBSERVICE_READWISE_TOKEN} },
);


has base_url => (
    is      => 'ro',
    default => sub {'https://readwise.io/api/v2/'},
);


has http => (
    is      => 'ro',
    default => sub {
        return HTTP::Tiny->new;
    },
);


sub auth {
    my $self = shift;

    my $response = $self->http->request(
        'GET',
        $self->base_url . 'auth/',
        { headers => { Authorization => "Token $self->{token}", }, }
    );

    return $response->{status};
}


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

    my $path = 'export/';
    if ( %params && $params{'pageCursor'} ) {
        $path .= '?pageCursor=' . $params{pageCursor};
    }

    my $response = $self->http->request(
        'GET',
        $self->base_url . $path,
        { headers => { Authorization => "Token $self->{token}", }, }
    );

    if ( !$response->{success} ) {
        return 'Response error';
    }

    my $json = decode_json $response->{content};

    return $json;
}


sub highlights {
    my $self = shift;

    my $response = $self->http->request(
        'GET',
        $self->base_url . 'highlights/',
        { headers => { Authorization => "Token $self->{token}", }, }
    );

    if ( !$response->{success} ) {
        return 'Response error';
    }

    my $json = decode_json $response->{content};

    return $json;
}

1;

__END__