File Coverage

blib/lib/Hubot/Scripts/print.pm

Criterion	Covered	Total	%
statement	9	18	50.0
branch	0	2	0.0
condition	0	6	0.0
subroutine	3	5	60.0
pod	0	1	0.0
total	12	32	37.5

package Hubot::Scripts::print;
$Hubot::Scripts::print::VERSION = '0.1.9';
use strict;
use warnings;
use JSON::XS;

sub load {
    my ( $class, $robot ) = @_;
    $robot->hear(
        qr/^(?:print|say):? (.+)/i,
        sub {
            my $msg  = shift;
            my $code = $msg->match->[0];
            $msg->http('http://api.dan.co.jp/lleval.cgi')
                ->query( { s => "#!/usr/bin/perl\nprint $code\n" } )->get(
                sub {
                    my ( $body, $hdr ) = @_;
                    return if ( !$body || $hdr->{Status} !~ m/^2/ );
                    my $data = decode_json($body);
                    $msg->send( split /\n/,
                        $data->{stdout} || $data->{stderr} );
                }
                );
        }
    );
}

1;

=head1 NAME

Hubot::Scripts::print

=head1 VERSION

version 0.1.9

=head1 SYNOPSIS

    print <code> - evaluate <code> and show the result
    say <code> - evaluate <code> and show the result

=head1 AUTHOR

Hyungsuk Hong <[e-mail]>

=cut