#!/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 "Usage: perl $0 api_key\n";
my $artist  = shift || 'Led Zeppelin';
my $track   = shift || 'Kashmir';

my $w = WebService::LastFM::TrackInfo->new(api_key => $api_key);

my $r = $w->fetch(
    artist => $artist,
    track  => $track,
);
print ddc($r, {max_width=>128});
