home_timeline worksmigrate-to-Twitter-API

no automatic cursor support yet, so friends/followers won't return the
whole list

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;
 }