#!/usr/bin/perl
package Trimester;
use strict;
use warnings;
use Sort::Maker qw(make_sorter sorter_source);
use Data::Dumper;
our ($closure0);

print "Version: $Sort::Maker::VERSION\n";

my %assoc = (
	Roetgen => 1,
	Julie => 2,
	Carrie => 3,
	Sheryl => 4,
	Markus => 5,
	Jonathan => 6,
);

my @testar = qw(Julie Roetgen Markus Jonathan Sheryl Carrie);

my @tryarray = qw(Berries Bananas Apples Peaches Apricots
	Tangerines Oranges);

my $sorter = make_sorter (
	GRT => 
	closure => 
	number => sub { $assoc{$_} },
	);

my $nsorter = make_sorter (
	plain => closure => 'descending', 
	string => sub { $_ },
	);

die($@) unless $sorter;
print sorter_source($sorter);

# print "keys now: @{[ keys %Trimester:: ]}\n";
# print "data: " . $closure0 . "\n";
# print Dumper(\%Trimester::);


my @sorted = $sorter->(@testar);
print "---------------------------\n";
print "@sorted\n";

@sorted = $nsorter->(@tryarray);
print "@sorted\n";