bService::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 =>
esponse->{success} ) {
return 'Response error';
}
my $json = decode_json $response->{content};
return $json;
}
sub highlights {
my $self = shift;
my $response = $self-
esponse->{success} ) {
return 'Response error';
}
my $json = decode_json $response->{content};
return $json;
}
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
WebService::Readw