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);
  }