![]() |
![]()
| ![]() |
![]()
NAMEPOE::Component::IRC::Plugin::Bollocks - A POE::Component::IRC plugin that talks bollocks. VERSIONversion 1.02 SYNOPSISuse 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; } DESCRIPTIONPOE::Component::IRC::Plugin::Bollocks is a POE::Component::IRC plugin generates management bullshit whenever you need it. CONSTRUCTOR
IRC INPUT
SEE ALSOPOE::Component::IRC Dev::Bollocks AUTHORChris Williams <chris@bingosnet.co.uk> COPYRIGHT AND LICENSEThis software is copyright (c) 2017 by Chris Williams. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.
|