File Coverage

blib/lib/Net/Spotify.pm

Criterion	Covered	Total	%
statement	12	20	60.0
branch			n/a
condition			n/a
subroutine	4	7	57.1
pod	3	3	100.0
total	19	30	63.3

package Net::Spotify;

use warnings;
use strict;

use Net::Spotify::Lookup;
use Net::Spotify::Search;

our $VERSION = '0.03';

sub new {
    my $class = shift;

    my $self = {
        lookup => Net::Spotify::Lookup->new(),
        search => Net::Spotify::Search->new(),
    };

    bless $self, $class;

    return $self;
}

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

    return $self->{lookup}->make_request(@parameters);
}

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

    return $self->{search}->make_request(@parameters);
}

1;

__END__