diff options
author | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2023-02-22 11:56:10 +0000 |
---|---|---|
committer | Gianni Ceccarelli <gianni.ceccarelli@broadbean.com> | 2023-02-22 11:56:10 +0000 |
commit | 8a66c4ef785ba4e72f320f4023718148854e6ac1 (patch) | |
tree | bfa5d8f4bbe67a27999908814a6828befd950011 /lib/Dakkar/NotesArchive.pm | |
parent | update to 5.36 (diff) | |
download | tweet-archive-misskey.tar.gz tweet-archive-misskey.tar.bz2 tweet-archive-misskey.zip |
misskey clientmisskey
Diffstat (limited to 'lib/Dakkar/NotesArchive.pm')
-rw-r--r-- | lib/Dakkar/NotesArchive.pm | 45 |
1 files changed, 45 insertions, 0 deletions
diff --git a/lib/Dakkar/NotesArchive.pm b/lib/Dakkar/NotesArchive.pm new file mode 100644 index 0000000..5571419 --- /dev/null +++ b/lib/Dakkar/NotesArchive.pm @@ -0,0 +1,45 @@ +package Dakkar::NotesArchive; +use v5.36; +use Moo; +use experimental 'builtin'; +use Dakkar::Misskey; +use Types::Standard qw(Str InstanceOf); +use namespace::clean; + +has [qw(base_url token user_id)] => ( + is => 'ro', + required => 1, + isa => Str, +); + +has client => ( + is => 'lazy', + isa => InstanceOf['Dakkar::Misskey'], +); + + +sub _build_client($self) { + my $nt = Dakkar::Misskey->new({ + base_url => $self->base_url, + token => $self->token, + }); +} + +sub timeline($self, $since_id) { + return $self->client->timeline({ + sinceId => $since_id, + includeMyRenotes => \1, + includeLocalRenotes => \1, + includeRenotedMyNotes => \0, + }); +} + +sub following($self) { + return $self->client->following($self->user_id); +} + +sub followers($self) { + return $self->client->followers($self->user_id); +} + +1; |