# Returns XML by default
my $events = $sk->get_events;
# Or returns JSON
my $events = $sk->get_events({ format => 'json' });
=head1 DESCRIPTION
This module presents a Perl wrapper around the
use strict;
use warnings;
our $VERSION = '1.0.8';
use Moose;
use LWP::UserAgent;
use URI;
use JSON;
use Net::Songkick::Event;
has api_key => (
is => 'ro',
isa => 'Str',
required => 1,
);
shift;
return LWP::UserAgent->new;
}
has json_decoder => (
is => 'ro',
isa => 'JSON',
lazy_build => 1,
);
sub _build_json_decoder {
return JSON->new;
}
has ['api_format', 'return_format'