NAME
POE::Component::IRC::Plugin::Bollocks - A POE::Component::IRC plugin that talks bollocks.
SYNOPSIS
use strict;
use warnings;
use POE qw(Component::IRC Component::IRC::Plugin::Bollocks);
my $nickname = 'Pointy' . $$;
my $ircname = 'Pointy Haired Boss';
my $ircserver = 'irc.blah.org';
my $port = 6667;
my $channel = '#IRC.pm';
my $irc = POE::Component::IRC->spawn(
nick => $nickname,
server => $ircserver,
port => $port,
ircname => $ircname,
debug => 0,
plugin_debug => 1,
options => { trace => 0 },
) or die "Oh noooo! $!";
POE::Session->create(
package_states => [
'main' => [ qw(start irc001) ],
],
);
$poe_kernel->run();
exit 0;
sub start {
# Create and load our CTCP plugin
$irc->pluginadd( 'Bollocks' =>
POE::Component::IRC::Plugin::Bollocks->new() );
$irc->yield( register => 'all' );
$irc->yield( connect => { } );
undef;
}
sub irc_001 {
$irc->yield( join => $channel );
undef;
}
DESCRIPTION
POE::Component::IRC::Plugin::Bollocks is a POE::Component::IRC plugin generates management bullshit whenever you need it.
CONSTRUCTOR
new Creates a new plugin object.
IRC INPUT
BOLLOCKS
If your bot is addressed by name with the command 'BOLLOCKS' (case
doesn't matter), it will write some random management bollocks to
the channel.
AUTHOR
Chris "BinGOs" Williams <chris@bingosnet.co.uk>
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
SEE ALSO
POE::Component::IRC
Dev::Bollocks