Changeset 140429f for perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

Timestamp:

Jan 23, 2014, 5:52:26 PM (10 years ago)

Author:

Nelson Elhage <nelhage@nelhage.com>

Branches:

master, release-1.10

Children:

736835d

Parents:

0d53dfb

Message:

Implement :twitter-favorite

File:

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

perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

@@ -429 +429 @@
 }
 
+sub twitter_favorite {
+    my $self = shift;
+    my $msg = shift;
+
+    if($msg->service ne $self->{cfg}->{service}) {
+        die("Cannot favorite a message from a different service.\n");
+    }
+    $self->twitter_command(create_favorite => $msg->{status_id});
+}
+
+
 sub twitter_follow {
     my $self = shift;