File Coverage

blib/lib/Net/Spotify/Service.pm

Criterion	Covered	Total	%
statement	31	39	79.4
branch	0	2	0.0
condition	1	2	50.0
subroutine	11	13	84.6
pod	7	7	100.0
total	50	63	79.3

package Net::Spotify::Service;

use strict;
use warnings;

use Carp ();
use LWP::UserAgent ();
use URI ();
use URI::QueryParam ();

our $VERSION = '0.03';

sub new {
    my $class = shift;
    $class = ref $class || $class || __PACKAGE__;

    my $self = {
        ua => LWP::UserAgent->new(
            agent => 'Net::Spotify/' . $VERSION,
            env_proxy => 1,
        ),
        base_url => 'http://ws.spotify.com',
        version => '1',
        format => 'xml',
    };

    bless $self, $class;

    return $self;
}

sub base_url {
    my $self = shift;

    return $self->{base_url};
}

sub format {
    my $self = shift;

    return $self->{format};
}

sub format_request {
    Carp::croak('format_request() is not implemented.');
}

sub make_request {
    my ($self, @parameters) = @_;

    my $request = $self->format_request(@parameters);

    my $ua = $self->ua();

    my $response = $ua->request($request);

    if ($response->is_success) {
        return $response->content;
    }
    else {
        return $response->status_line;
    }
}

sub ua {
    my $self = shift;

    return $self->{ua};
}

sub version {
    my $self = shift;

    return $self->{version};
}

1;

__END__