Jabber Perl Bot: Development
Prev	Chapter 3. IRC Messages

Coding Modules

Example 3-2. Hello IRC - the code

package modules::IRC::helloirc;

use module;
use vars '@ISA';
@ISA = ("module");

sub hello {
  my ($pkg, %args) = @_;
  $vars{other}->{conn}->privmsg(
    $vars{other}->{event}->to,
    "Hi, " . $vars{other}->{event}->nick . "!"
  );
}

1;