From 2ca0c78590a78a237669820ac225c378058d9b44 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Fri, 29 Jun 2018 14:57:47 +0100
Subject: home_timeline works

no automatic cursor support yet, so friends/followers won't return the
whole list
---
 lib/Dakkar/TweetArchive.pm | 29 +++++++++++++----------------
 1 file changed, 13 insertions(+), 16 deletions(-)

(limited to 'lib/Dakkar/TweetArchive.pm')

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;
 }
 
-- 
cgit v1.2.3