Changeset a8a0b0a for lib/BarnOwl/Module/Twitter/Handle.pm

Timestamp:

Jul 22, 2009, 8:40:13 PM (15 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

master, release-1.10, release-1.7, release-1.8, release-1.9

Children:

0b13bbc

Parents:

efcd223

Message:

Don't use verify_credentials.

Twitter apparently ratelimits verify_credentials far more than other
requests, so just ask for our timeline to verify credentials, instead of
relying on verify_credentials.

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (1 diff)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -61 +61 @@
     $self->{twitter}  = Net::Twitter->new(%twitter_args);
 
-    if(!defined($self->{twitter}->verify_credentials())) {
+    my $timeline = $self->{twitter}->friends_timeline({count => 1});
+
+    if(!defined($timeline)) {
         $self->fail("Invalid credentials");
     }
 
-    unless(defined($self->{last_id})) {
-        eval {
-            $self->{last_id} = $self->{twitter}->friends_timeline({count => 1})->[0]{id};
-        };
-        $self->{last_id} = 1 unless defined($self->{last_id});
-    }
-
-    unless(defined($self->{last_direct})) {
-        eval {
-            $self->{last_direct} = $self->{twitter}->direct_messages()->[0]{id};
-        };
-        $self->{last_direct} = 1 unless defined($self->{last_direct});
-    }
+    eval {
+        $self->{last_id} = $timeline->[0]{id};
+    };
+    $self->{last_id} = 1 unless defined($self->{last_id});
+
+    eval {
+        $self->{last_direct} = $self->{twitter}->direct_messages()->[0]{id};
+    };
+    $self->{last_direct} = 1 unless defined($self->{last_direct});
 
     eval {