From 0b356d2e192fa531fb149cfd89f9d93324a90ebe Mon Sep 17 00:00:00 2001
From: Gianni Ceccarelli <gianni.ceccarelli@broadbean.com>
Date: Wed, 22 Feb 2023 13:53:11 +0000
Subject: store misskey notes & people

---
 lib/Dakkar/Misskey.pm | 18 +++++++-----------
 1 file changed, 7 insertions(+), 11 deletions(-)

(limited to 'lib/Dakkar/Misskey.pm')

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) {
-- 
cgit v1.2.3