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

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.

Replies are listed 'Best First'.
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.