NAME

WebService::8tracks - Handle 8tracks API

SYNOPSIS

use WebService::8tracks;

my $api = WebService::8tracks->new;

# explore
my $res = $api->mixes({ sort => 'recent' });
foreach my $mix (@{$res->{mixes}}) {
    print "$mix->{user}->{name} $mix->{name} id=$mix->{id}\n";
}

# listen
my $session = $api->create_session($res->{mixes}->[0]->{id});
my $res = $session->play;
my $media_url = $res->{set}->{track}->{url};
...
$res = $session->next;
$res = $session->skip;

# authenticated API
my $api = WebService::8tracks->new(username => ..., password => ...);
$api->fav(23); # fav a track

DESCRIPTION

WebService::8tracks provides Perl interface to 8tracks API.

Currently, all response objects are almost naive hashrefs.

METHODS

new

my $api = WebService::8tracks->new([ username => ..., password => ... ]);

Create API object. Pass username and password args to use methods that require login (like, fav, follow).

mixes([ \%qparam ])

my $res = $api->mixes({ page => 2 });
my $res = $api->mixes({ q => 'miles davis' });

List mixes.

user($id_or_name)

my $res = $api->user(1);
my $res = $api->user('remi');

View user info.

user_mixes($id_or_name[, \%qparam ])

my $res = $api->user_mixes(2);
my $res = $api->user_mixes('dp', { view => 'liked' });

List mixes made by a user.

create_session($mix_id)

my $session = $api->create_session($mix_id);
my $res = $session->play;
my $res = $session->next;
my $res = $session->skip;

Start playing mix. Returns a WebService::8tracks::Session.

like / unlike / toggle_like($mix_id)

my $res = $api->toggle_like($mix_id);

Like/unlike/toggle_like a mix. Requires username and password.

fav / unfav / toggle_fav($track_id)

my $res = $api->fav($track_id);

Fav/unfav/toggle_fav a track. Requires username and password.

follow / unfollow / toggle_follow($user_id)

my $res = $api->follow($user_id);

Follow/unfollow/toggle_follow a user. Requires username and password.

AUTHOR

motemen <motemen@gmail.com>

SEE ALSO

8tracks Playback API. http://docs.google.com/Doc?docid=0AQstf4NcmkGwZGdia2c5ZjNfNDNjbW01Y2dmZw

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.