Changeset 82e0f26 for lib

Timestamp:

Aug 4, 2009, 1:30:08 AM (15 years ago)

Author:

Kevin Riggle <kevinr@free-dissociation.com>

Branches:

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

Children:

513da71

Parents:

5da6ed8

Message:

Use exceptions in the modern, Net::Twitter::Lite style of error handling

File:

• lib/BarnOwl/Module/Twitter/Handle.pm (modified) (7 diffs)

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -57 +57 @@
     $self->{twitter}  = Net::Twitter::Lite->new(%twitter_args);
 
-    my $timeline = $self->{twitter}->friends_timeline({count => 1});
+    my $timeline = eval { $self->{twitter}->friends_timeline({count => 1}) };
+    warn "$@" if $@;
 
     if(!defined($timeline)) {
@@ -71 +72 @@
         $self->{last_direct} = $self->{twitter}->direct_messages()->[0]{id};
     };
+    warn "$@" if $@;
     $self->{last_direct} = 1 unless defined($self->{last_direct});
 
@@ -76 +78 @@
         $self->{twitter}->{ua}->timeout(1);
     };
+    warn "$@" if $@;
 
     return $self;
@@ -83 +86 @@
     my $self = shift;
 
-    my $ratelimit = $self->{twitter}->rate_limit_status;
+    my $ratelimit = eval { $self->{twitter}->rate_limit_status };
+    warn "$@" if $@;
     unless(defined($ratelimit) && ref($ratelimit) eq 'HASH') {
         # Twitter's just sucking, sleep for 5 minutes
@@ -107 +111 @@
     return unless BarnOwl::getvar('twitter:poll') eq 'on';
 
-    my $timeline = $self->{twitter}->friends_timeline( { since_id => $self->{last_id} } );
+    my $timeline = eval { $self->{twitter}->friends_timeline( { since_id => $self->{last_id} } ) };
+    warn "$@" if $@;
     unless(defined($timeline) && ref($timeline) eq 'ARRAY') {
         $self->twitter_error();
@@ -114 +119 @@
 
     if ($self->{cfg}->{show_unsubscribed_replies}) {
-        my $mentions = $self->{twitter}->mentions( { since_id => $self->{last_id} } );
+        my $mentions = eval { $self->{twitter}->mentions( { since_id => $self->{last_id} } ) };
+        warn "$@" if $@;
         unless (defined($mentions) && ref($mentions) eq 'ARRAY') {
             $self->twitter_error();
@@ -158 +164 @@
     return unless BarnOwl::getvar('twitter:poll') eq 'on';
 
-    my $direct = $self->{twitter}->direct_messages( { since_id => $self->{last_direct} } );
+    my $direct = eval { $self->{twitter}->direct_messages( { since_id => $self->{last_direct} } ) };
+    warn "$@" if $@;
     unless(defined($direct) && ref($direct) eq 'ARRAY') {
         $self->twitter_error();