gistfile1.txt

use v6;
use Net::IRC::Bot;
use MuEvent;

role Net::IRC::Bot::MuEvent {
    method muevent-run {
		self.disconnect;
		self.connect;
        MuEvent::socket(
            socket => $.conn,
            poll   => 'r',
            params => { sock => $.conn },
            cb     => sub (:$sock) {
                my $line = $sock.get or die "Connection error.";
                $line ~~ s/<[\n\r]>+$//;
                my $event = Net::IRC::Parser::RawEvent.parse($line)
                    or note("Could not parse the following IRC event: $line.perl()") and return True;
        
                say ~$event if $.debug;
        	    self.dispatch($event);
                return True;
            }
        );
    }
}

# vim: ft=perl6 tabstop=4 shiftwidth=4