#!/usr/bin/perl

use strict;

use Event;
use Net::Knuddels;

my $knudi = new Net::Knuddels::Client PeerAddr => "213.61.5.150:2710";

$knudi->login;

my %channels;

$knudi->register (b => sub {
  for (@_) {
    if ($_ ne "-") {

    } else {
      

    }
  }
});

$knudi->register (ALL => sub {
   use Dumpvalue;
   print "---\n";
   Dumpvalue->new (compactDump => 1, veryCompact => 1, quoteHighBit => 1, tick => '"')->dumpValue ([@_]);
});

$knudi->register (login => sub {
   $knudi->set_nick ("Zwickau", "Net-Knuddels", "lolfe");
});

Event->io ( fd => $knudi->fh, poll => 'r', cb => sub { $knudi->ready });

Event::loop;