#!/usr/bin/env perl
use strict;
use warnings;

use Data::Dumper::Compact qw(ddc);
use lib map { "$ENV{HOME}/sandbox/$_/lib" } qw(WebService-LastFM-TrackInfo);
use WebService::LastFM::TrackInfo;

my $api_key = shift || die qq/Usage: perl $0 your_api_key "Artist Name"\n/;
my $artist  = shift || 'Led Zeppelin';

my $w = WebService::LastFM::TrackInfo->new(
    api_key => $api_key,
    method  => 'artist',
);

my $r = $w->fetch(artist => $artist);

print ddc($r, {max_width=>128});
