#!/usr/bin/env perl -w
#
use strict;
use diagnostics;
package yuppie;
use base qw(Bot::BasicBot);
use v5.20.1;
my $ticked = 0;
sub said {
my $self = shift;
my $message = shift;
#exit if $ticked;
print q(Called said);
if ($message->{body} =~ /\bperl\b/) {
$self->say( {
channel => ( $self->channels ), #[0],
body => "I heard python is better...\n",
}
);
}
}
yuppie->new(
server => "irc.freenode.net",
port => "6667",
channels => ["##bikes"],
ssl => 0,
nick => "yuppie",
alt_nicks => ["yuppy", "yuppieee"],
username => "yuppie",
ignore_list => [qw("what?" "huh?" lactose)],
)->run();