File Coverage

blib/lib/Hubot/Scripts/ascii.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	4	50.0
pod	0	1	0.0
total	8	23	34.7

package Hubot::Scripts::ascii;
$Hubot::Scripts::ascii::VERSION = '0.2.7';
use strict;
use warnings;

sub load {
    my ( $class, $robot ) = @_;
    $robot->hear(
        qr/^ascii:?( me)? (.+)/i,
        sub {
            my $msg = shift;
            $msg->http('http://asciime.heroku.com/generate_ascii')
                ->query( 's', $msg->match->[1] )->get(
                sub {
                    my ( $body, $hdr ) = @_;
                    return if ( !$body || !$hdr->{Status} =~ /^2/ );
                    $msg->send( split( /\n/, $body ) );
                }
                );
        }
    );
}

1;

=pod

=encoding utf-8

=head1 NAME

Hubot::Scripts::ascii

=head1 VERSION

version 0.2.7

=head1 SYNOPSIS

    ascii me <text> - Show text in ascii art

=head1 AUTHOR

Hyungsuk Hong <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Hyungsuk Hong.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut