1package Generate; 2 3use 5.006; 4use strict; 5use warnings; 6 7use File::Spec::Functions qw( catfile ); 8use File::Basename qw( basename ); 9 10use base qw( Exporter ); 11our @EXPORT_OK = qw( %GENERATE ); 12 13our %GENERATE = ( map {; ($output = basename $_) =~ s/\.m/.pm/; 14 $_ => catfile 'lib', 'Class', 'MethodMaker', $output } 15 grep /\.m$/, glob(catfile 'components', '*') ); 16 17