view release on metacpan or  search on metacpan

README  view on Meta::CPAN

    Please report bugs or other problems to <bugs@evoscript.com>.

BUGS AND TO DO
    The following issues have been noted for future improvements:

    Convert more types of comparisons to packed-default sorts for speed.

    Further investigate the current status of the Sort::Records module.

    Add a comparator function for an alpha-numeric-spans sorting model like
    Sort::Naturally.

    Interface to Sort::PolySort for alternate comparator styles, like "name"
    and "usdate".

    For non-scalar values, compare referents along the lines of
    Ref::cmpref().

    Provide better handling for nested sorts; perhaps throw an exception
    from the inner instance to the outer, catch and set $PreCalculate, then
    go back into the loop?

Sorting.pm  view on Meta::CPAN

=head1 BUGS AND TO DO

The following issues have been noted for future improvements:

Convert more types of comparisons to packed-default sorts for speed.

Further investigate the current status of the Sort::Records module.

Add a comparator function for an alpha-numeric-spans sorting model
like Sort::Naturally.

Interface to Sort::PolySort for alternate comparator styles, like
"name" and "usdate".

For non-scalar values, compare referents along the lines of
Ref::cmpref().

Provide better handling for nested sorts; perhaps throw an exception
from the inner instance to the outer, catch and set $PreCalculate,
then go back into the loop?

t/sort_tests.pl  view on Meta::CPAN

# t/sort_tests.pl -- utility routines for Data::Sorting test scripts.

# Inspiried by test.pl from Sort::Naturally by Sean M. Burke

sub shuffle {
  my @out;
  while(@_) { push @out, splice @_, rand(@_), 1 };
  return @out
}

sub arrays_match {
  my $array = shift;
  # warn "Checking: " . join( ', ', map "'$_'", @$array ) . "\n";