Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much
 
PerlMonks  

Re^2: What is code readability?

by Anonymous Monk
on Jan 03, 2007 at 04:13 UTC ( #592696=note: print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    $fee = determine_maximum_fee();
    
    sub determine_total_fee {
    
  2. or download this
      $fee = ($tfee / 100 + $sfee/100 + 0.0000001) * 100
    
  3. or download this
      $mfee = 200 if ($fee >= 100);
    
  4. or download this
      $fee = $mfee if $mfee;
    
  5. or download this
      return $fee;
    }
    
  6. or download this
    use constant BREAK_POINT => 100;
    use constant BONUS_FEE   => 200;
    
    my $total_fee = $tfee+$rfee >= BREAK_POINT ? BONUS_FEE : $tfee+$rfee;
    

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others musing on the Monastery: (2)
As of 2020-07-13 01:31 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?