Changeset 9876953

Timestamp:

Dec 19, 2009, 6:43:15 PM (13 years ago)

Author:

Nelson Elhage <nelhage@mit.edu>

Branches:

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

Children:

5214546

Parents:

c78d06f

git-author:

Nelson Elhage <nelhage@mit.edu> (12/19/09 18:42:49)

git-committer:

Nelson Elhage <nelhage@mit.edu> (12/19/09 18:43:15)

Message:

Use home_timeline so we get retweets

File:

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

lib/BarnOwl/Module/Twitter/Handle.pm

@@ -15 +15 @@
 
 use Net::Twitter::Lite;
+BEGIN {
+    # Backwards compatibility with version of Net::Twitter::Lite that
+    # lack home_timeline.
+    if(!defined(*Net::Twitter::Lite::home_timeline{CODE})) {
+        *Net::Twitter::Lite::home_timeline =
+          \&Net::Twitter::Lite::friends_timeline;
+    }
+}
 use HTML::Entities;
 
@@ -69 +77 @@
     $self->{twitter}  = Net::Twitter::Lite->new(%twitter_args);
 
-    my $timeline = eval { $self->{twitter}->friends_timeline({count => 1}) };
+    my $timeline = eval { $self->{twitter}->home_timeline({count => 1}) };
     warn "$@" if $@;
 
@@ -151 +159 @@
     return unless BarnOwl::getvar('twitter:poll') eq 'on';
 
-    my $timeline = eval { $self->{twitter}->friends_timeline( { since_id => $self->{last_id} } ) };
+    my $timeline = eval { $self->{twitter}->home_timeline( { since_id => $self->{last_id} } ) };
     warn "$@" if $@;
     unless(defined($timeline) && ref($timeline) eq 'ARRAY') {