File Coverage

blib/lib/Net/Spotify/Lookup.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod	1	1	100.0
total	26	27	96.3

package Net::Spotify::Lookup;

use strict;
use warnings;

use base 'Net::Spotify::Service';

our $VERSION = '0.03';

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

    my $base_url = $self->base_url();
    my $version = $self->version();

    my $uri = URI->new("$base_url/lookup/$version/");

    foreach my $key (qw(uri extras)) {
        if (exists $parameters{$key} && $parameters{$key}) {
            $uri->query_param($key, $parameters{$key});
        }
    }

    return HTTP::Request->new('GET', $uri);
}

1;

__END__