Yet Another CPAN Grep

WebService-Reddit ( O/OA/OALDERS/WebService-Reddit-0.000003.tar.gz, OALDERS, 2017; MetaCPAN )

WebService-Reddit/lib/WebService/Reddit/Response.pm ( view source; MetaCPAN )

:Reddit::Response;
$WebService::Reddit::Response::VERSION = '0.000003';
use Moo;

use JSON::MaybeXS qw( decode_json );
use Types::Standard qw( Bool InstanceOf Maybe HashRef );

has content => (
    is

my $self    = shift;
    my $content = $self->raw->decoded_content;

    return $content ? decode_json($content) : undef;
}

sub _build_success {
    my $self = shift;
    return $self->raw->is_succes

item raw

An L<HTTP::Response> object.

=back

=head1 METHODS

=head2 content

This is the parsed JSON body of the response.  Generally this will be a C<HashRef>.

=head2 raw

Returns the raw L<HTTP::