There's a saying, use the source luke, so here's a quote from the source # 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 {
Question: heard of 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] [Watch: Dir/Any] [d/l] |
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] [Watch: Dir/Any] |
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] [Watch: Dir/Any] |