Re: Question Marks in Subroutine Names

If it really bothers you that much, you could do...

use constant YES => 1;
use constant NO  => 0;

  # ...

my $answer = is_contact_female ? YES : NO;
[download]

... but it's shamefully redundant if is_contact_female is already returning a true or false; not to mention limiting (ie, you couldn't use 1 to represent 'Yes, and adult', 2 to be 'Yes, but teen', etc.).

--k.

Comment on Re: Question Marks in Subroutine Names Download Code

Replies are listed 'Best First'.

(crazyinsomniac: bah) Re^2: Question Marks in Subroutine Names
by crazyinsomniac (Prior) on May 08, 2002 at 10:40 UTC

${'polly wanna cracker?'} = sub {'no'};

warn &${'polly wanna cracker?'};

warn ${'polly wanna cracker?'}->();

my %F = (
        'polly wanna cracker?' => sub {'no'},
    ,);

warn &{$F{'polly wanna cracker?'}};

die $F{'polly wanna cracker?'}->();
[download]

(I don't think either one will/should happen)

______crazyinsomniac_____________________________
Of all the things I've lost, I miss my mind the most.
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"

[reply]
[d/l]

Re: (crazyinsomniac: bah) Re^2: Question Marks in Subroutine Names

by rob_au (Abbot) on May 08, 2002 at 13:11 UTC

crazyinsomniac

*{'is_contact_female?'} = sub {
    my @args = @_;
    ...
};

&{'is_contact_female?'}( @args );
[download]

I first encountered this manner of subroutine assignment in Damian Conway's selfGOL obfuscation, a "must-read" for any aspiring obfuscator.

[reply]
[d/l]

Re: Re: Question Marks in Subroutine Names
by dug (Chaplain) on May 08, 2002 at 02:55 UTC

I'm thinking of this in a boolean context, so what you call limiting I wasn't thinking of as limiting in this context. Good point though. However, this is a hideously ugly solution that could easily be taken care of by allowing question marks in subroutine names.

[reply]