The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Net-IChat-0.01
River stage zero No dependents
++
/ Net::IChat

NAME

Net::IChat - use apple's iChat as a messaging tool

SYNOPSIS

  use Net::IChat;
  use Net::IChat::Client;

  my $me = Net::IChat->me();
  $me->announce;

  my $clients = Net::IChat->clients();
  if (@$clients) {
    my $conversation = $clients->[0]->converse();
    $conversation->send('Hello');
    my $mesg = $conversation->receive();

    if ($mesg->can('body')) {
      print $mesg->body;
    }
  }

DESCRIPTION

Net::IChat allows you to write clients for Apple's Rendezvous iChat.