File: Generate.pm

package info (click to toggle)
libclass-methodmaker-perl 2.25-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 524 kB
  • sloc: perl: 1,849; objc: 492; makefile: 3
file content (16 lines) | stat: -rw-r--r-- 410 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
package Generate;

use 5.006;
use strict;
use warnings;

use File::Spec::Functions qw( catfile );
use File::Basename        qw( basename );

use base qw( Exporter );
our @EXPORT_OK = qw( %GENERATE );

our %GENERATE = ( map {; ($output = basename $_) =~ s/\.m/.pm/;
                       $_ => catfile 'lib', 'Class', 'MethodMaker', $output }
                  grep /\.m$/, glob(catfile 'components', '*') );