Role::API {
use Carp qw/croak confess/;
use Moose;
use URI::Escape;
use JSON::Any qw/XS DWIW JSON/;
use Data::Dumper;
use LWP::UserAgent;
use Net::Topsy::Result;
our $V
quired => 0 );
has format => ( isa => 'Str', is => 'rw', required => 1, default => '.json' );
has base_url => ( isa => 'Str', is => 'ro', default => 'http://otter.topsy.com' );
erl = $self->_from_json( $response->content );
my $result = Net::Topsy::Result->new(
response => $response,
json => $response->
rl (hash reference) representation of the JSON that is returned by
the Topsy API.
=item json
my $json = $result->json();
Returns the raw string of JSON that is returned by the Topsy API.
=item
utes
has perl => ( isa => 'HashRef', is => 'rw', default => sub { [ ] } );
has json => ( isa => 'Str', is => 'rw', default => '' );
has response => ( isa => 'HTTP