package Hubot::Scripts::ping;
$Hubot::Scripts::ping::VERSION = '0.1.9';
use strict;
use warnings;

sub load {
    my ( $class, $robot ) = @_;
    $robot->respond( qr/ping$/i, sub { shift->reply('PONG') } );
    $robot->respond(
        qr/die$/i,
        sub {
            shift->send('Goodbye, cruel world.');
            $robot->shutdown;
        }
    );
}

1;

=head1 NAME

Hubot::Scripts::ping

=head1 VERSION

version 0.1.9

=head1 SYNOPSIS

    hubot ping - bot will pong me
    hubot die - shutdown robot

=head1 AUTHOR

Hyungsuk Hong <hshong@perl.kr>

=cut