File Coverage

blib/lib/LLEval.pm

Criterion	Covered	Total	%
statement	40	49	81.6
branch	4	8	50.0
condition			n/a
subroutine	10	12	83.3
pod	0	5	0.0
total	54	74	72.9

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',
    isa      => 'Str',
    default  => 'api.dan.co.jp',
);

has api_pathq_base => (
    is       => 'ro',
    isa      => 'Str',
    default  => '/lleval.cgi',
);

has _furl => (
    is       => 'ro',
    isa      => 'Object',
    default  => sub {
        return Furl->new( agent => "LLEval-Client/$VERSION" ),
    },
);

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

sub call {
    my($self, %args) = @_;

    my $path_query = $self->api_pathq_base . '?';
    while(my($key, $value) = each %args) {
        next unless defined $value;
        $path_query .= sprintf '&%s=%s',
            uri_escape_utf8($key), uri_escape_utf8($value);
    }
    #warn $path_query;
    my $res = $self->_furl->request(
        host       => $self->api_host,
        path_query => $path_query,
    );
    if($res->code != 200) {
        confess "API Error: ", $res->status_line;
    }
    return $self->_json->decode($res->content);
}

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

sub eval {
    my($self, $source, $lang, $stdout_to, $stderr_to) = @_;
    my $data = $self->call_eval($source, $lang);

    if(defined $stdout_to) {
        ${$stdout_to} = $data->{stdout};
    }
    else {
        print $data->{stdout};
    }
    if(defined $stderr_to) {
        ${$stderr_to} = $data->{stderr};
    }
    else {
        Carp::carp($data->{stderr});
    }
    return $data->{status};
}

# list of supported languages
sub languages {
    my($self) = @_;
    my $data = $self->call(q => 1);
    delete $data->{error};
    return $data;
}

sub pretty {
    my($self, $data) = @_;
    return $self->_json->encode($data);
}

no Mouse;
__PACKAGE__->meta->make_immutable();
__END__