die "No sort made: $@" if ! $sf; #### make_sorter: Unknown option or key 'code' #### #!/usr/bin/perl # foo.pl - This is just a test use strict; use warnings; use Sort::Maker; make_sorter( string => { code => sub { length } }, ST => 1, name => 'sort_len', ) or die "$@"; my ( $foo, $bar ) = (qw/very_long short/); my @order = sort_len( $foo, $bar ); print @order;