diff options
| author | dakkar <dakkar@thenautilus.net> | 2024-11-26 14:25:24 +0000 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2024-11-26 14:25:24 +0000 |
| commit | 711a524f230e91ba34256798b92bbb7c1503d5ef (patch) | |
| tree | 5823fac98cdf9087e913b86e2851a88832547d8c /lib/Dakkar/Misskey.pm | |
| parent | fix fts for notes (diff) | |
| download | tweet-archive-711a524f230e91ba34256798b92bbb7c1503d5ef.tar.gz tweet-archive-711a524f230e91ba34256798b92bbb7c1503d5ef.tar.bz2 tweet-archive-711a524f230e91ba34256798b92bbb7c1503d5ef.zip | |
Diffstat (limited to 'lib/Dakkar/Misskey.pm')
| -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; |