Fun Code
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));
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));
"It is the common fate of the indolent to see their rights become a prey to the active. The condition upon which God hath given liberty to man is eternal vigilance; which condition if he break, servitude is at once the consequence of his crime and the punishment of his guilt."
Leave a comment