summaryrefslogtreecommitdiff
path: root/lib/Dakkar/TweetArchive.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Dakkar/TweetArchive.pm')
-rw-r--r--lib/Dakkar/TweetArchive.pm29
1 files changed, 13 insertions, 16 deletions
diff --git a/lib/Dakkar/TweetArchive.pm b/lib/Dakkar/TweetArchive.pm
index 3c0d35e..f023359 100644
--- a/lib/Dakkar/TweetArchive.pm
+++ b/lib/Dakkar/TweetArchive.pm
@@ -2,9 +2,9 @@ package Dakkar::TweetArchive;
use 5.024;
use Moo;
use experimental 'signatures';
-use Net::Twitter;
+use Twitter::API;
use Types::Standard qw(Str InstanceOf);
-use namespace::clean;
+use namespace::autoclean;
has [qw(consumer_key consumer_secret access_token access_token_secret)] => (
is => 'ro',
@@ -14,27 +14,24 @@ has [qw(consumer_key consumer_secret access_token access_token_secret)] => (
has client => (
is => 'lazy',
- isa => InstanceOf['Net::Twitter'],
+ isa => InstanceOf['Twitter::API'],
);
sub _build_client($self) {
- my $nt = Net::Twitter->new(
- traits => [
- qw/API::RESTv1_1 OAuth RetryOnError/,
- AutoCursor => {
- max_calls => 16,
- force_cursor => 1,
- array_accessor => 'users',
- methods => [qw/friends followers/],
- },
- ],
+ my $nt = Twitter::API->new_with_traits(
+ traits => [qw{Enchilada RateLimiting}],
+ # AutoCursor => {
+ # max_calls => 16,
+ # force_cursor => 1,
+ # array_accessor => 'users',
+ # methods => [qw/friends followers/],
+ # },
consumer_key => $self->consumer_key,
consumer_secret => $self->consumer_secret,
+ access_token => $self->access_token,
+ access_token_secret => $self->access_token_secret,
);
- $nt->access_token($self->access_token);
- $nt->access_token_secret($self->access_token_secret);
-
return $nt;
}