summaryrefslogtreecommitdiff
path: root/lib/Dakkar/Misskey.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Dakkar/Misskey.pm')
-rw-r--r--lib/Dakkar/Misskey.pm18
1 files changed, 7 insertions, 11 deletions
diff --git a/lib/Dakkar/Misskey.pm b/lib/Dakkar/Misskey.pm
index 8d6dd5e..327cfe8 100644
--- a/lib/Dakkar/Misskey.pm
+++ b/lib/Dakkar/Misskey.pm
@@ -10,7 +10,7 @@ use URI;
use namespace::clean;
has _json => ( is => 'lazy', builder => sub { JSON::MaybeXS->new(utf8=>1,relaxed=>1, pretty=>0) } );
-has _ua => ( is => 'lazy', builder => sub { LWP::UserAgent->new(agent=>'Dakkar::Misskey') } );
+has ua => ( is => 'lazy', builder => sub { LWP::UserAgent->new(agent=>'Dakkar::Misskey') } );
has token => ( is => 'ro', required => 1 );
has base_url => ( is => 'ro', required => 1, isa => Uri, coerce => 1 );
@@ -23,22 +23,19 @@ sub _request($self, $endpoint, $payload) {
my $uri = URI->new($endpoint)->abs($self->base_url);
- my $response = $self->_ua->post(
+ my $response = $self->ua->post(
$uri,
'Content-type' => 'application/json',
Content => $payload_json,
);
if ($response->is_success) {
- return(
- $self->_json->decode(
- $response->decoded_content(charset=>'none')
- ),
- undef,
+ return $self->_json->decode(
+ $response->decoded_content(charset=>'none')
);
}
- return( undef, $response->status_line );
+ die $response->status_line;
}
sub _paged_request($self, $endpoint, $payload) {
@@ -50,8 +47,7 @@ sub _paged_request($self, $endpoint, $payload) {
};
while (1) {
- my ($result, $error) = $self->_request($endpoint, $page_payload);
- return (\@all_results, $error) if $error;
+ my $result = $self->_request($endpoint, $page_payload);
last unless $result->@*;
@@ -59,7 +55,7 @@ sub _paged_request($self, $endpoint, $payload) {
$page_payload->{untilId} = minstr(map { $_->{id} } $result->@* );
}
- return (\@all_results, undef);
+ return \@all_results;
}
sub timeline($self,$options) {