File Coverage

blib/lib/WebService/Jamendo.pm

Criterion	Covered	Total	%
statement	12	159	7.5
branch	0	90	0.0
condition	0	48	0.0
subroutine	4	20	20.0
pod	13	14	92.8
total	29	331	8.7

package WebService::Jamendo;

################################################
# Jamendo
################################################

use strict;
use warnings;
use diagnostics;
use HTTP::Request;
require LWP::UserAgent;
our $VERSION = qw('0.01');

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# public
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# constructor
sub new{
	my $class = shift;

	my $oUserAgent = LWP::UserAgent->new;
 	$oUserAgent->timeout(10);
 	$oUserAgent->env_proxy;
	$oUserAgent->agent(qq(jamendo.pm));

	my $oHTTPRequest = HTTP::Request->new;
	$oHTTPRequest->method(qq(GET));

	my $sBaseUrl = 	qq(http://api.jamendo.com/get2/);
	my $sURLEncode =

	my $self = {'oUserAgent' => $oUserAgent,
		    'oHTTPRequest' => $oHTTPRequest,
		    'sBaseUrl' => $sBaseUrl
	};

	bless $self, $class;
	return $self;
}

### getSomeInfos ###

# getArtistInfos
sub getArtistInfos{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getArtistInfos() given");

	my %hParams = ();
	$hParams{'sFields'} = "artist_id+artist_name+artist_url+artist_image+artist_mbgid+location_country+location_state+location_city";
	$hParams{'sUnit'} = "artist";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);

	return __getDataSet($self, \%hParams);
}

# getUserInfos
sub getUserInfos{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getUserInfos() given");

	my %hParams = ();
	$hParams{'sFields'} = "user_id+user_name+user_idstr+user_url+user_image+user_mbgid+location_country+location_state+location_city";
	$hParams{'sUnit'} = "user";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);

	return __getDataSet($self, \%hParams);
}

# getAlbumInfos
sub getAlbumInfos{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getAlbumInfos() given");

	my %hParams = ();
	$hParams{'sFields'} = "artist_id+album_id+album_name+album_url+album_genre+album_mbgid+album_image+album_duration";
	$hParams{'sUnit'} = "album";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);

	return __getDataSet($self, \%hParams);
}

# getTrackInfos
sub getTrackInfos{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getAlbumInfos() given");

	my %hParams = ();
	$hParams{'sFields'} = "album_id+track_id+track_name+track_filename+track_numalbum+track_duration";
	$hParams{'sUnit'} = "track";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);

	return __getDataSet($self, \%hParams);
}

### getSomethingFrom ###

# getAlbumTracks
sub getAlbumTracks{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getAlbumTracks() given");

	my %hParams = ();
	$hParams{'sFields'} = "artist_id+album_id+album_name+album_url+album_genre+album_mbgid+album_image+album_duration+track_id+track_name+track_filename+track_numalbum+track_duration";
	$hParams{'sUnit'} = "album";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);

	return __getDataSet($self, \%hParams);
}

# getUserFriends
sub getUserFriends{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getUserFriends() given");

	my %hParams = ();
	$hParams{'sFields'} = "user_id+user_name+user_idstr+user_url+user_image+user_mbgid+location_country+location_state+location_city";
	$hParams{'sUnit'} = "user";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);
	$hParams{'sFunction'} = "user_user2_friend";

	return __getDataSet($self, \%hParams);
}

# getUserAlbums
sub getUserAlbums{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getUserFriends() given");

	my %hParams = ();
	$hParams{'sFields'} = "user_id+user_idstr+artist_id+album_id+album_name+album_url+album_genre+album_mbgid+album_image+album_duration";
	$hParams{'sUnit'} = "album";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);
	$hParams{'sFunction'} = "album_user_starred";

	return __getDataSet($self, \%hParams);
}

# getUserTracks
sub getUserTracks{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getUserFriends() given");

	my %hParams = ();
	$hParams{'sFields'} = "user_id+user_idstr+album_id+track_id+track_name+track_filename+track_numalbum+track_duration";
	$hParams{'sUnit'} = "track";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "json");
	$hParams{'hArgs'} = __getParams(\%hArgs);
	$hParams{'sFunction'} = "tracks_user_starred";

	return __getDataSet($self, \%hParams);
}

# getTrackStreamingFile
sub getTrackStreamingFile{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getTrackStreamingFile() given");

	my %hParams = ();
	$hParams{'sFields'} = "stream";
	$hParams{'sUnit'} = "track";
	$hParams{'sFormat'} = (defined $hArgs{'format'} ? $hArgs{'format'} : "plain");
	$hParams{'hArgs'} = __getParams(\%hArgs);
	$hParams{'hArgs'}{'streamencoding'} = (defined $hParams{'hArgs'}{'streamencoding'} ? $hParams{'hArgs'}{'streamencoding'} : "ogg2");
	$hParams{'sFunction'} = "redirect";

	return __getDataSet($self, \%hParams);
}

### getSomeSearch ###

# getArtistSearch
sub getArtistSearch{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getArtistSearch() given");

	my $sReturn = getUserInfos($self, \%hArgs);
	return $sReturn;
}

# getAlbumSearch
sub getAlbumSearch{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getAlbumSearch() given");

	my $sReturn = getAlbumInfos($self, \%hArgs);
	return $sReturn;
}

# getTrackSearch
sub getTrackSearch{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getTrackSearch() given");

	my $sReturn = getTrackInfos($self, \%hArgs);
	return $sReturn;
}

# getUserSearch
sub getUserSearch{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::getUserSearch() given");

	my $sReturn = getUserInfos($self, \%hArgs);
	return $sReturn;
}

#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
# private
#~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

# __getParams
sub __getParams{

	my %hArgs = ((defined $_[0] && keys%{$_[0]}) ? %{$_[0]} : warn "no arguments hash for jamendo::__getParams() given");

	my %hParams = ();
	foreach my $sArg(keys%hArgs){
		if(defined $hArgs{$sArg} && $sArg ne "format"){
			$hParams{$sArg} = $hArgs{$sArg};
		}
	}

	return \%hParams;
}

# __getDataSet
sub __getDataSet{

	my $self = (defined $_[0] ? $_[0] : warn "jamendo not constructed?");
	my %hArgs = ((defined $_[1] && keys%{$_[1]}) ? %{$_[1]} : warn "no arguments hash for jamendo::__getDataSet() given");

	my $sFields = (defined $hArgs{'sFields'} ? $hArgs{'sFields'} : warn "no URL fields for jamendo::__getDataSet() given");
	my $sUnit = (defined $hArgs{'sUnit'} ? $hArgs{'sUnit'} : warn "no URL unit for jamenod::__getDataSet() given");
	my $sFormat = (defined $hArgs{'sFormat'} ? $hArgs{'sFormat'} : warn "no URL format for jamenod::__getDataSet() given");
	my $sFunction = (defined $hArgs{'sFunction'} ? "/".$hArgs{'sFunction'}."/" : "");

	my $sArgs;
	if(defined $hArgs{'hArgs'}){

		foreach my $sArg(keys%{$hArgs{'hArgs'}}){

			my $sParam = $sArg;
			$sParam =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

			my $sArgument = $hArgs{'hArgs'}{$sArg};
			$sArgument =~ s/([^A-Za-z0-9])/sprintf("%%%02X", ord($1))/seg;

			$sArgs .= "$sParam=".$sArgument."&";
		}
	}

	my $sRequestUrl = "$self->{'sBaseUrl'}$sFields/$sUnit/$sFormat$sFunction?$sArgs";
	my $oRequest = $self->{'oHTTPRequest'};
	$oRequest->uri($sRequestUrl);
	my $oResponse = $self->{'oUserAgent'}->request($oRequest);
	return $oResponse->content;
}

1;

__END__