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

Re^2: short sorts

by Lady_Aleena (Curate)
on Mar 30, 2012 at 17:23 UTC ( #962656=note: print w/replies, xml ) Need Help??

in reply to Re: short sorts
in thread short sorts

Thank you for pointing that out to me. I changed the last lines of the subroutine to include tobyink's suggestion of croak above in Re: short sorts. So now I have a more explicit conditional just to keep things tidy. Thanks! :)

if ($type) { croak "$type is not supported" if !exists $sorts{$type}; return $sorts{$type}->($a,$b); } else { my $random_sort = (keys %sorts)[rand (keys %sorts)]; return $sorts{$random_sort}->($a,$b); }


Since the random sort is not acting as I expected, I decided to just let the subroutine die there.

if ($type) { croak "$type is not supported" if !exists $sorts{$type}; return $sorts{$type}->($a,$b); } else { die "A sort type was not selected."; }
Have a cookie and a very nice day!
Lady Aleena

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://962656]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (8)
As of 2018-03-21 09:48 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (265 votes). Check out past polls.