Yet Another CPAN Grep

LLEval ( G/GF/GFUJI/LLEval-0.01.tar.gz, GFUJI, 2011; MetaCPAN )

LLEval/lib/LLEval.pm ( view source; MetaCPAN )

package LLEval;
use 5.008_001;
use Mouse;
use MouseX::StrictConstructor;
use JSON;
use Furl;
use URI::Escape qw(uri_escape_utf8);

our $VERSION = '0.01';

has api_host => (
    is       => 'ro',
    i

ent => "LLEval-Client/$VERSION" ),
    },
);

has _json => (
    is       => 'ro',
    isa      => 'Object',
    default  => sub {
        return JSON->new->utf8->pretty;
    },
);

sub call {
    my(

f($res->code != 200) {
        confess "API Error: ", $res->status_line;
    }
    return $self->_json->decode($res->content);
}

sub call_eval {
    my($self, $source, $lang) = @_;
    return $self->