Yet Another CPAN Grep

WebService-Soundcloud ( M/MP/MPGUTTA/WebService-Soundcloud-0.04.tar.gz, MPGUTTA, 2013; MetaCPAN )

WebService-Soundcloud/lib/WebService/Soundcloud.pm ( view source; MetaCPAN )


use 5.006;

use strict;
use warnings;

use Carp;
use LWP::UserAgent;
use URI;
use JSON qw(decode_json);
use Data::Dumper;
use HTTP::Headers;
use Scalar::Util qw(reftype);

# declare doma


   'access_token' => 'oauth2/token'
);

our %formats = (
   '*'    => '*/*',
   'json' => 'application/json',
   'xml'  => 'application/xml'
);

our $VERSION = '0.04';

=pod

=head1 NAME

  # OAuth Dance is completed :-) Have fun now.

    # Default request and response formats are 'json'
    
    # a GET request '/me' - gets users details
    my $user = $scloud->get('/me');