1.12: How to get Sort::Maker Generated Code

use Sort::Maker qw( make_sorter sorter_source ) ;

foreach my $style ( qw( plain orcish ST GRT ) ) {

	my $sorter = make_sorter( $style,
		string	=> {
			code	=> qr/^foo(\w+)/,
		},
		number	=> {
			code	=> qr/(\d+)$/,
		}
	) ;

	print sorter_source( $sorter ) ;
}