Changeset 28685

Show
Ignore:
Timestamp:
01/20/09 11:25:14 (4 years ago)
Author:
sugyan
Message:

lang/perl/Net-Twissr: add example code

Location:
lang/perl/Net-Twissr/trunk
Files:
2 added
1 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Net-Twissr/trunk/lib/Net/Twissr.pm

    r28670 r28685  
    105105 
    106106sub update { 
    107     my ($self, $text, $reply_id) = @_; 
     107    my ($self, $text) = @_; 
    108108 
    109109    my ($twitter_res, $wassr_res); 
    … …  
    113113            source => 'perlnettwissr', 
    114114            status => $text, 
    115             in_reply_to_status_id => $reply_id, 
    116115        }; 
    117116        my $url = $self->{twitter}->{apiurl} . '/statuses/update.json'; 
    … …  
    126125            source => 'Perl Net::Twissr', 
    127126            status => $text, 
    128             reply_status_rid => $reply_id, 
    129127        }; 
    130128        my $url = $self->{wassr}->{apiurl} . '/statuses/update.json';