TheGameCrafter::Client::VERSION = '0.0103';
}
use LWP::UserAgent;
use HTTP::Request::Common;
use JSON;
use URI;
use Ouch;
use parent 'Exporter';
our @EXPORT = qw(tgc_get tgc_delete tgc_put tgc_post)
request( @_ ));
}
sub _process_response {
my $response = shift;
my $result = eval { from_json($response->decoded_content) };
if ($@) {
ouch 500, 'Server returned unparsable conte
ult->{error}{data};
}
}
=head1 PREREQS
L<LWP::UserAgent>
L<Ouch>
L<HTTP::Request::Common>
L<JSON>
L<URI>
=head1 SUPPORT
=over
=item Repository
L<http://github.com/rizen/TheGameCrafter-Client