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 irc_001) ],
],
);
$poe_kernel->run();
exit 0;
sub _start {
# Create and load our CTCP plugin
$irc->plugin_add( '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