lib/server.pl @@ -82,12 +82,6 @@ The following methods are implemented on this version of C<Net::MySpace>: =cut -my $api_def = { - - ### - ### activities - ### - =head2 Activities C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Activities> @@ -97,6 +91,58 @@ C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Activ Required parameters: C<userId>. =cut + +=head3 friends_activities + +Required parameters: C<userId>. + +=cut + +=head2 Albums + +C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Albums> + +=head3 albums + +Required parameters: C<userId>. + +=cut + +=head3 album + +Required parameters: C<userId>, C<albumId>. + +=cut + +=head3 album_photos + +Required parameters: C<userId>, C<albumId>. + +=cut + +=head2 Friends + +C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Friends> + +=head3 verify_friendship + +Required parameters: C<userId>, C<friendsId>. + +=cut + +=head3 friends_status + +Required parameters: C<userId>. + +=cut + +my $api_def = { + + ### + ### activities + ### + + 'activities' => { resource => '/:version/users/:userId/activities', format => 'atom', @@ -104,11 +150,8 @@ Required parameters: C<userId>. api_name => 'GET_v1_users_userId_activities', }, -=head3 friends_activities -Required parameters: C<userId>. -=cut 'friends_activities' => { resource => '/:version/users/:userId/friends/activities', format => 'atom', @@ -117,37 +160,22 @@ Required parameters: C<userId>. }, -=head2 Albums - -C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Albums> -=head3 albums - -Required parameters: C<userId>. - -=cut 'albums' => { resource => '/:version/users/:userId/albums', method => 'GET', api_name => 'GET_v1_users_userId_albums', }, -=head3 album -Required parameters: C<userId>, C<albumId>. -=cut 'album' => { resource => '/:version/users/:userId/:albumId', method => 'GET', api_name => 'GET_v1_users_userId_albums_albumId', }, -=head3 album_photos - -Required parameters: C<userId>, C<albumId>. -=cut 'album_photos' => { resource => '/:version/users/:userId/albums/:albumId/photos', method => 'GET', @@ -155,26 +183,17 @@ Required parameters: C<userId>, C<albumId>. }, -=head2 Friends - -C<http://wiki.developer.myspace.com/index.php?title=MySpace_REST_Resources#Friends> -=head3 verify_friendship - -Required parameters: C<userId>, C<friendsId>. -=cut 'verify_friendship' => { resource => '/:version/users/:userId/friends/:friendsId', method => 'GET', api_name => 'GET_v1_users_userId_friends_friendsId', }, -=head3 friends_status - -Required parameters: C<userId>. + + -=cut 'friends_status' => { resource => '/:version/users/:userId/friends/status', method => 'GET', @@ -226,14 +245,14 @@ Required parameters: C<userId>. while(my($k, $v) = each %$api_def) { no strict 'refs'; - - my $url = $API_URL.$v->{resource}; - + *{__PACKAGE__ . "::$k"} = sub { my $self = shift; my %args = @_; my $j = JSON::Any->new; + my $url = $API_URL.$v->{resource}; + # replace version $url =~ s/:version/$API_VERSION/; $url .= ".$API_FORMAT" if $API_FORMAT; lib/Net/MySpace.pm @@ -24,4 +24,4 @@ print Dumper $ms->oauth->request_access_token; print Dumper $ms->friends_status( userId => $ms->user->{userId} -); \ No newline at end of file +); lib/example.pl bfb9523fc2cab73e84ea5f9d3422d60da99117d6 David Moreno david@axiombox.com http://github.com/damog/Net-MySpace/commit/ae073403a4109c346f072e714d7bb3199364ce45 ae073403a4109c346f072e714d7bb3199364ce45 2009-06-23T15:59:42-07:00 2009-06-23T15:59:42-07:00 latest changes 8598d80aabce3255d0a43b4d5542f8e404151952 David Moreno david@axiombox.com