diff options
| -rw-r--r-- | lib/Dakkar/Misskey.pm | 2 |
1 files changed, 2 insertions, 0 deletions
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; |