Changeset 15115 for lang/perl/Net-Wassr/trunk/lib/Net/Wassr.pm

Timestamp:

07/03/08 19:50:25 (5 months ago)

Author:

likk

Message:

lang/perl/Net-Wassr: add sl_timeline, footmark, friend_list, followers_list, follow and unfollow method

Files:

• lang/perl/Net-Wassr/trunk/lib/Net/Wassr.pm (modified) (3 diffs)

lang/perl/Net-Wassr/trunk/lib/Net/Wassr.pm

@@ -50 +50 @@
 }
 
+sub sl_timeline {
+    my ( $self, $args ) = @_;
+    return $self->_get( '/sl_timelinejson?', $args );
+}
+
 sub show {
     my ( $self, $args ) = @_;
     return $self->_get( '/show.json', $args );
+}
+
+sub footmark {
+    my ( $self, $args ) = @_;
+    return $self->_get( '/footmark/recent.json', $args );
+}
+
+sub friend_list {
+    my ( $self, $args ) = @_;
+    return $self->_get( '/statuses/friends.json', $args );
+}
+
+sub followers_list {
+    my ( $self, $args ) = @_;
+    return $self->_get( '/statuses/followers.json', $args );
 }
 
@@ -73 +93 @@
     Encode::from_to( $args->{body}, $encode, 'utf8', 0 );
     return $self->_get( '/channel_message/update.json', $args );
+}
+
+sub follow {
+    my ( $self, $login_id ) = @_;
+    return $self->_get( "/friendships/create/$login_id.json");
+}
+
+sub unfollow {
+    my ( $self, $login_id ) = @_;
+    return $self->_get( "/friendships/destroy/$login_id.json");
 }
 
@@ -103 +133 @@
   $wassr->user_timeline();
   $wassr->channel_timeline();
+  $wassr->sl_timeline();
+  $wassr->footmark();
+  $wassr->friend_list();
+  $wassr->followers_list();
+  $wassr->follow('YOUR FRIEND LOGIN_ID');
+  $wassr->unfollow('YOUR FRIEND LOGIN_ID');
   $wassr->show();
   $wassr->update({ source => 'Net::Wassr', status => 'hi! shot!'});
+  $wassr->channel_update({ name_en=> 'botest', body => 'hi! shot!'});
 
 =head1 DESCRIPTION