From 711a524f230e91ba34256798b92bbb7c1503d5ef Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Tue, 26 Nov 2024 14:25:24 +0000
Subject: cope with rate limiting

---
 lib/Dakkar/Misskey.pm | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/Dakkar/Misskey.pm b/lib/Dakkar/Misskey.pm
index a32bd5b..dec894d 100644
--- a/lib/Dakkar/Misskey.pm
+++ b/lib/Dakkar/Misskey.pm
@@ -7,6 +7,7 @@ use Types::Standard qw(Str);
 use Types::URI qw(Uri);
 use List::Util qw(maxstr);
 use URI;
+use Time::HiRes qw(sleep);
 use namespace::clean;
 
 has _json => ( is => 'lazy', builder => sub { JSON::MaybeXS->new(utf8=>1,relaxed=>1, pretty=>0) } );
@@ -77,6 +78,7 @@ sub _paged_request($self, $endpoint, $payload, $cb) {
         }
 
         $page_payload->{sinceId} = maxstr(map { $_->{id} } $result->@* );
+        sleep(0.5);
     }
 
     return \@all_results;
-- 
cgit v1.2.3