view release on metacpan or  search on metacpan

lib/Audio/Scrobbler2.pm  view on Meta::CPAN

    }, ref($class) || $class;

    $self->{http} = $self->_build_http_client;

    return $self;
}

sub _build_http_client {
    return HTTP::Tiny->new(
        agent      => "Audio-Scrobbler2/$VERSION",
        keep_alive => 1,
        timeout    => 30,
        verify_SSL => 1,
    );
}

sub _signature {
    my ($self, $params) = @_;

    my $signature = join '',
        map { $_ . $params->{$_} }

t/010_api.t  view on Meta::CPAN

    'https://ws.audioscrobbler.com/2.0/'
        . '?artist=%D0%91%D0%B8-2'
        . '&format=json'
        . '&method=test.get'
        . '&track=Metsat%C3%B6ll',
    'GET query values are UTF-8 encoded',
);

my $real_client = Audio::Scrobbler2->new('key', 'secret');
is($real_client->{http}->agent, 'Audio-Scrobbler2/1.00', 'client identifies itself');
is($real_client->{http}->keep_alive, 1, 'client enables keep-alive');
is($real_client->{http}->timeout, 30, 'client uses a 30 second timeout');
is($real_client->{http}->verify_SSL, 1, 'client verifies TLS certificates');

done_testing;