[ViewVC] Annotation of: cvs/cvsroot/Net-IRC3/samples/test_connect

#!perl
use AnyEvent;
use Net::IRC3::Connection;

my $c = AnyEvent->condvar;

my $con = new Net::IRC3::Connection;

$con->connect ("localhost", 6667);

$con->reg_cb (irc_001 => sub { print "$_[1]->{prefix} says i'm in the IRC: $_[1]->{trailing}!\n"; $c->broadcast });
$con->send_msg (undef, NICK => undef, "testbot");
$con->send_msg (undef, USER => 'testbot', "testbot", '*', '0');

$c->wait;
Revision:	1.1
Committed:	Mon Jul 17 16:01:04 2006 UTC (20 years, 2 months ago) by elmex
Branch:	MAIN
CVS Tags:	HEAD
Log Message:	added examples and documentation
#	User	Rev	Content
1	elmex	1.1	#!perl
2			use AnyEvent;
3			use Net::IRC3::Connection;
4
5			my $c = AnyEvent->condvar;
6
7			my $con = new Net::IRC3::Connection;
8
9			$con->connect ("localhost", 6667);
10
11			$con->reg_cb (irc_001 => sub { print "$_[1]->{prefix} says i'm in the IRC: $_[1]->{trailing}!\n"; $c->broadcast });
12			$con->send_msg (undef, NICK => undef, "testbot");
13			$con->send_msg (undef, USER => 'testbot', "testbot", '*', '0');
14
15			$c->wait;