package { {$name} };
{
{
use strict;
use vars '$foo';
$Text::Template::SILENTLY; # same as '';
}
}
# ABSTRACT: {{$name}}
use strict;
use warnings;
sub load {
my ( $class, $robot ) = @_;
## robot respond only called its name first. `hubot xxx`
$robot->respond(
qr/pattern (.*)?$/i, # (.*) will captured as `$msg->match->[0]`
sub {
my $msg = shift; # Hubot::Response
$msg->send('hi'); # hubot> hi
$msg->reply('hi'); # hubot> user: hi
}
);
## robot can hear anything
$robot->hear(
qr/^pattern (.*)?$/i,
sub {
my $msg = shift; # Hubot::Response
}
);
}
1;
=pod
=head1 NAME
{{$name}}
=head1 SYNOPSIS
hubot <command> <args> - help message here
=head1 DESCRIPTION
need more description?
=head1 CONFIGURATION
=over
=item HUBOT_ENV_VARS_TO_SET
=back
=head1 AUTHOR
Your name <your@email.com>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2012 by <Your Name>.
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