note
tobyink
<p>If you add the following, right at the top of your sub (inside the curly braces, but before <c>my ($a, $b, $type)</c>...</p>
<code>
if (@_ == 2) {
my ($type, $ref) = @_;
$type =~ s/_/-/g;
return sort { short_sorts($a, $b, $type) } @$ref;
}
</code>
<p>Then it gives you an even shorter syntax for sorting:</p>
<code>
my @list = qw(red orange yellow green blue purple);
my @sorted = short_sorts ci_a => \@list;
print "@sorted\n";
# says "blue green orange purple red yellow"
</code>
<p>It's probably also worth adding something like this:</p>
<code>
croak "$type is not supported"
if $type && !exists $sorts{$type};
</code>
<!-- Node text goes above. Div tags should contain sig only -->
<div class="pmsig"><div class="pmsig-757127">
<small><small>
<tt>perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'
</tt></small></small>
</div></div>
962078
962078