view release on metacpan or  search on metacpan

lib/Sort/Fields.pm  view on Meta::CPAN

	fieldsort
	make_stable_fieldsort
	stable_fieldsort
);
$VERSION = '1.003';

use Carp;

sub make_fieldsort {
	my $selfname;
	if ((caller)[0] eq 'Sort::Fields') {
		($selfname) = (caller 1)[3] =~ /([^:]*)$/;
	} else {
		$selfname = 'make_fieldsort'
	};
	unless (@_) {
		croak "$selfname requires argument(s)";
	}

	my ($sep, $cols);
	if (ref $_[0]) {