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