NET::IRC Don't hit me, I'm fragile

Łokě has asked for the wisdom of the Perl Monks concerning the following question:

I'm looking for all of the possible information I can get on Net::IRC. Cpan's info on it's basically a waste of time. What I think I really need is to know what comes in when I get a msg.

sub on_msg {
  my ($conn, $event) = @_;
[download]

Ok, so, I can have $event->{nick} and $event->{args} but what else. How do I find out what I can play with? There doesn't seem to be a whole lot of info out there on this kind of thing.

Comment on NET::IRC Don't hit me, I'm fragile Download Code

Replies are listed 'Best First'.

use the source luke
by PodMaster (Abbot) on Jul 01, 2004 at 02:37 UTC

# Constructor method for Net::IRC::Event objects.
# Takes at least 4 args:  the type of event
#                         the person or server that initiated the even
+t
#                         the recipient(s) of the event, as arrayref o
+r scalar
#                         the name of the format string for the event
#            (optional)   any number of arguments provided by the even
+t
sub new {
    my $class = shift;

    # -- #perl was here! --
    #   \mjd: Under the spreading foreach loop, the lexical variable s
+tands.
    #   \mjd: The my is a mighty keyword, with abcessed anal glands.
    #   \mjd: Apologies to Mr. Longfellow.

    my $self = { 'type'   =>  $_[0],
         'from'   =>  $_[1],
         'to'     =>  ref($_[2]) eq 'ARRAY'  ?  $_[2]  :  [ $_[2] ],
         'format' =>  $_[3],
         'args'   =>  [ @_[4..$#_] ],
           };
    
    bless $self, $class;
    
    if ($self->{'type'} !~ /\D/) {
        $self->{'type'} = $self->trans($self->{'type'});
    } else {
        $self->{'type'} = lc $self->{'type'};
    }

    #  ChipDude: "Beware the method call, my son!  The subs that grab,
+ the
    #             args that shift!"
    #      \mjd: That's pretty good.

    $self->from($self->{'from'});     # sets nick, user, and host
    $self->args(@{$self->{'args'}});  # strips colons from args
    
    return $self;
}

*snip*

# Dumps the contents of an event to STDERR so you can see what's insid
+e.
# Takes no args.
sub dump {
[download]

Data::Dumper

MJD says "you can't just make shit up and expect the computer to know what you mean, retardo!"
I run a Win32 PPM repository for perl 5.6.x and 5.8.x -- I take requests (README).
** The third rule of perl club is a statement of fact: pod is sexy.

[reply]
[d/l]

Re: use the source luke

by Łokě (Scribe) on Jul 01, 2004 at 03:45 UTC

Yea, good point podmaster, I supposed that's all I had to do. Someone else mentioned something to me about listkeys. I'll be looking into that too.

[reply]

Re: NET::IRC Don't hit me, I'm fragile
by pbeckingham (Parson) on Jul 01, 2004 at 02:00 UTC

I see documentation for Net::IRC, and the three other classes that accompany it. Did you try anything? Got any code to share here? Have you tried anything?

Can you not just poll, and simulate your desired interface?

[reply]