Changeset 15993 for lang/perl/Net-Wassr

Timestamp:

07/18/08 16:44:20 (5 years ago)

Author:

hidek

Message:

add via_list / pictogram_recent / channel_user methods

Files:

• lang/perl/Net-Wassr/trunk/lib/Net/Wassr.pm (modified) (1 diff)

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

@@ -75 +75 @@
 }
 
+sub via_list {
+    my ( $self, $args ) = @_;
+    return $self->_get( '/statuses/via.json', $args );
+}
+
 sub channel_search {
     my ( $self, $keyword ) = @_;
     return $self->_get( "/channel/exists.json?name_en=$keyword")->{exists};
+}
+
+sub channel_user {
+    my ( $self, $args) = @_;
+    return $self->_get( '/channel_user/user_list.json', $args);
+}
+
+sub pictogram_recent {
+    my ( $self, $args) = @_;
+    return $self->_get( '/pictogram/recent.json', $args);
 }