Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine

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 musing on the Monastery: (4)
As of 2017-05-26 23:10 GMT
Find Nodes?
    Voting Booth?