Revision 1 (by moose, 2006/07/20 11:34:56) initial import 
#!/usr/bin/perl

use IRC;

my $irc = new IRC;

$irc->buffer_add("one\n");
$irc->buffer_add("two ");
$irc->buffer_add("two ");
$irc->buffer_add("two\n");
$irc->buffer_add("three\n");
$irc->buffer_add("four\nfive\nsix\nlalala");

for($irc->buffer_getlines()) {
	print "Buff: " . $_;
}