Beefy Boxes and Bandwidth Generously Provided by pair Networks
laziness, impatience, and hubris
 
PerlMonks  

Re: Lady Aleena's first working module

by Tux (Canon)
on Oct 07, 2009 at 07:39 UTC ( [id://799670]=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub random_alignment {
      my $type = shift;
    ...
      elsif ($type eq 'lawful_vs_chaotic') {
        return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
      }
    
  2. or download this
    sub random_alignment
    {
    ...
      if ($type eq 'lawful_vs_chaotic') {
        return $lawful_vs_chaotic[rand @lawful_vs_chaotic];
        }
    
  3. or download this
    sub random_alignment
    {
    ...
      $type eq "parts"             and return $parts[rand @parts];
      $type eq "good_vs_evil"      and return $good_vs_evil[rand @good_vs_
    +evil];
      $type eq "lawful_vs_chaotic" and return $lawful_vs_chaotic[rand @law
    +ful_vs_chaotic];
    

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://799670]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others having an uproarious good time at the Monastery: (5)
As of 2024-03-28 20:43 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found