Stories
Slash Boxes
Comments
NOTE: use Perl; is on undef hiatus. You can read content, but you can't post it. More info will be forthcoming forthcomingly.

All the Perl that's Practical to Extract and Report

use Perl Log In

Log In

[ Create a new account ]

pudge (1)

pudge
  (email not shown publicly)
http://pudge.net/
AOL IM: Crimethnk (Add Buddy, Send Message)

I run this joint, see?

Journal of pudge (1)

Monday March 26, 2001
10:30 AM

Fun Code

[ #8 ]
I like this.  You don't have to.

    my $mode =
        (ref $hash->{CALLBACK} eq 'CODE'
            ? kAEQueueReply
            : (exists $hash->{REPLY}    # check event setting
                ? $hash->{REPLY}
                : exists $self->{REPLY}    # check global setting
                    ? $self->{REPLY}
                    : 1        # default to wait
            )
                ? kAEWaitReply
                : kAENoReply)

            | (exists $hash->{MODE}
                ? $hash->{MODE}
                : exists $self->{MODE}
                    ? $self->{MODE}
                    : (kAECanInteract | kAECanSwitchLayer));