#!/usr/bin/perl
use strict;
use Net::IRC3::Client;
$Net::IRC3::Client::DEBUG = 1;

my $c = AnyEvent->condvar;

my $i = Net::IRC3::Client->new;

my $pc = $i->connect ("irc.plan9.de", 6667, "net_irc3", "net_irc3", "test bot");

$pc->send_chan ("#test", "PRIVMSG", "hi, i'm a bot!", "#test");
$pc->send_srv ("JOIN", undef, "#test");

$pc->reg_cb (
   irc_privmsg => sub {
      my ($self, $msg) = @_;
      if ($msg->{trailing} =~ m/net_irc3:\s*(.*)/) {
         $pc->send_chan ("#test", "PRIVMSG", "yes?", "#test");
      }
   }
);

$pc->reg_cb (
   disconnect => sub {
      print "DISCOPNNECT!!!\n";
   }
);

$pc->register;

$c->wait;