File Coverage

blib/lib/HTTP/Response/JSON.pm

Criterion	Covered	Total	%
statement	23	24	95.8
branch	3	4	75.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	34	36	94.4

package HTTP::Response::JSON;

use strict;
use warnings;
no warnings 'uninitialized';

use LWP::JSON::Tiny;
use parent 'HTTP::Message::JSON', 'HTTP::Response';

use Encode;

our $VERSION = $LWP::JSON::Tiny::VERSION;

=head1 NAME

HTTP::Response::JSON - a subclass of HTTP::Response that understands JSON

=head1 SYNOPSIS

 if ($response->isa('HTTP::Response::JSON')) {
     Your::Own::Code::do_something($response->json_content);
 }

=head1 DESCRIPTION

This is a simple subclass of HTTP::Response that implements a method
L which returns the JSON-decoded contents of the response.

=head2 json_content

 Out: $perl_data

Returns the Perl data structure corresponding to the contents of this
response.

Will throw an exception if the contents look like JSON but cannot be converted
to JSON. Will return undef if the contents don't look like JSON.

=cut

sub json_content {
    my ($self) = @_;

    return if $self->content_type !~ m{^ application/json }x;
    if ($self->decoded_content !~ /\S/) {
        return;
    } else {
        my $json = LWP::JSON::Tiny->json_object;
        return $json->decode($self->decoded_content);
    }
}

=head1 AUTHOR

Sam Kington

The source code for this module is hosted on GitHub
L - this is probably the
best place to look for suggestions and feedback.

=head1 COPYRIGHT

Copyright (c) 2015 Sam Kington.

=head1 LICENSE

This library is free software and may be distributed under the same terms as
perl itself.

=cut

1;