http://qs321.pair.com?node_id=27848

This node falls below the community's threshold of quality. You may see it by logging in.

Replies are listed 'Best First'.
(jeffa) RE: Oh if it were only that easy...
by jeffa (Bishop) on Aug 15, 2000 at 20:28 UTC
    <sarcasm>
    Ok, this is completely tasteless.
    I mean, just look at the way you
    have enclosed your braces.
    For shame.
    </sarcasm>
[reply]
RE: Oh if it were only that easy...
by johannz (Hermit) on Aug 15, 2000 at 21:44 UTC

    I'm voting this '--' not just because it's sexist, since we all occasionally make an accidentally sexist remark. I'm marking it '--' because it is blatently sexist and goes against the inclusive, accepting environment that I believe we have come to expect here at perlmonks.

    Also, Jaymoo, if you make a mistake on a post, it is better to update it rather then re-enter it.

[reply]
RE: Oh if it were only that easy...
by LeGo (Chaplain) on Aug 17, 2000 at 00:59 UTC
    The ninth line of code has chick not defined as a scalar. This might cause problems in the Pimp realm. Try: 
    {Big::Pimp pimpslap($chick);}

    [download]
    instead of 
     
{Big::Pimp pimpslap(chick);}

    [download]
    LeGo
[reply]
[d/l]
[select]
Re: Oh if it were only that easy...
by Anonymous Monk on Apr 02, 2001 at 04:53 UTC
    Since $chick is a object of class Women, you can just use $chick->issexy instead of Women::issexy($chick). Also, you forgot the :: between Big::Pimp and (kidnap|pimpslap) 
    use Big::Pimp;
use Women;
foreach $chick (@world) {
    if ($chick->issexy) {
        Big::Pimp::kidnap($chick);
        Big::Pimp::pimpslap($chick) until $chick->ismine;
    }
    else {
        next $chick;
    }
}

    [download]
[reply]
[d/l]
RE: Oh if it were only that easy...
by Anonymous Monk on Aug 16, 2000 at 17:35 UTC
    i don't know....i bet there are a few out there that might be able to use it... not me of course... :)
[reply]

Back to Perl Poetry