Name	Size	Mode	Actions
lib/	-	0755	rm
00-compile.t	987	0644	editdlrm
000-report-versions-tiny.t	2620	0644	editdlrm
col-init.t	1153	0644	editdlrm
collection.t	2902	0644	editdlrm
expand-group.t	5400	0644	editdlrm
faux-export.t	3044	0644	editdlrm
gen-callable.t	574	0644	editdlrm
group-generator.t	3774	0644	editdlrm
inherited.t	613	0644	editdlrm
into-level.t	3130	0644	editdlrm
real-export-groupgen.t	1902	0644	editdlrm
real-export-href.t	4223	0644	editdlrm
real-export-setup.t	3683	0644	editdlrm
util-curry.t	1735	0644	editdlrm
util-currychain.t	1718	0644	editdlrm
util-like.t	3104	0644	editdlrm
util-merge.t	1752	0644	editdlrm
util-mixin.t	2795	0644	editdlrm
util-namemap.t	568	0644	editdlrm
valid-config.t	1305	0644	editdlrm

#!/usr/bin/perl -T use strict; use warnings; use Test::More skip_all => 'not actually offerring this feature yet'; # use Test::More tests => 3; BEGIN { use_ok("Sub::Exporter::Util", 'name_map'); } is_deeply( { name_map( '_?_gen' => [ qw(fee fie) ], '_make_?' => [ qw(foo bar) ], ), }, { fee => \'_fee_gen', fie => \'_fie_gen', foo => \'_make_foo', bar => \'_make_bar', }, 'example from docs works just dandy', ); eval { name_map(foo => [ qw(bar) ] ) }; like($@, qr/no \?/, 'exception raised with no ? in template');