diff options
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; |