aboutsummaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorZoffix Znet <cpan@zoffix.com>2016-06-03 07:01:14 -0400
committerZoffix Znet <cpan@zoffix.com>2016-06-03 07:01:14 -0400
commit0daa494480f7abe37a6e593c6238811009b7b914 (patch)
tree5916cb48581e9478c8b92bb458589940f6fa814e /examples
parent495050a801901460fbd6a9c525216612b0d2f470 (diff)
Start rewrite
Diffstat (limited to 'examples')
-rw-r--r--examples/bot.pl616
1 files changed, 2 insertions, 14 deletions
diff --git a/examples/bot.pl6 b/examples/bot.pl6
index 524a74f..3737de1 100644
--- a/examples/bot.pl6
+++ b/examples/bot.pl6
@@ -1,20 +1,8 @@
use v6;
use lib 'lib';
use IRC::Client;
-use IRC::Client::Plugin::Debugger;
-
-class IRC::Client::Plugin::AddressedPlugin is IRC::Client::Plugin {
- method irc-addressed ($irc, $e, $where) {
- $irc.privmsg: $where[0], "$where[1], you addressed me";
- }
-}
my $irc = IRC::Client.new(
- :host<localhost>
- :channels<#perl6bot #zofbot>
:debug
- :plugins(
- IRC::Client::Plugin::Debugger.new,
- IRC::Client::Plugin::AddressedPlugin.new
- )
-).run; \ No newline at end of file
+ :port<5667>
+).run;