Ignore:
Timestamp:
Jan 23, 2014, 5:52:26 PM (8 years ago)
Author:
Nelson Elhage <nelhage@nelhage.com>
Branches:
master
Children:
5f3f1e4
Parents:
0d53dfb
Message:
Implement :twitter-favorite
File:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm

    r0d53dfb r140429f  
    429429}
    430430
     431sub twitter_favorite {
     432    my $self = shift;
     433    my $msg = shift;
     434
     435    if($msg->service ne $self->{cfg}->{service}) {
     436        die("Cannot favorite a message from a different service.\n");
     437    }
     438    $self->twitter_command(create_favorite => $msg->{status_id});
     439}
     440
     441
    431442sub twitter_follow {
    432443    my $self = shift;
Note: See TracChangeset for help on using the changeset viewer.