Yet Another CPAN Grep

WebService-Uptrack ( S/SH/SHUFF/WebService-Uptrack-v0.0.2.tar.gz, SHUFF, 2010; MetaCPAN )

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

nstraints;
use MooseX::StrictConstructor;

require HTTP::Request;
require HTTP::Response;
require JSON::XS;
require LWP::UserAgent;

use version; our $VERSION = qv('0.0.2');

# DEFAULT VALUES
Readonly

 ) }

# JSON
has '_json' => (
    is      => 'ro',
    isa     => duck_type( 'JSON', [ qw( new decode_json ) ] ),
    lazy_build  => 1,
    required    => 1,
);

sub _build__json { return( JSON::XS->n

Accept => 'application/json' );

    # send it
    my( $response ) = $self->_ua->request( $request );

    # what did we get?
    if ( $response->is_success ) {
        my( $json ) = $response->decode