Yet Another CPAN Grep

Audio-Scrobbler2 ( B/BA/BAGET/Audio-Scrobbler2-0.05.tar.gz, BAGET, 2012; MetaCPAN )

Audio-Scrobbler2/lib/Audio/Scrobbler2.pm ( view source; MetaCPAN )

r2;

use strict;
use warnings;

use WWW::Curl::Easy;
use Digest::MD5 qw( md5_hex );
use JSON::XS qw( decode_json );
use URI::Escape qw( uri_escape );

BEGIN {
    use Exporter ();
    use vars qw($VER

est {
    my ($self, $params, $method) = @_;
    my $response;
    my $fields = join("&", "format=json", map { join("=", $_, uri_escape($params->{$_})) } keys %$params);

    if ( $method and $method

{ method => "auth.getToken", api_key => $self->{"api_key"} });

    $self->{"api_token"} = decode_json($response)->{"token"} || 0;

    return $self->{"api_token"};
}

sub auth_getSession {
    my ($s