use 5.014000;
use strict;
use warnings;
-use parent qw/Exporter/;
-our @EXPORT_OK = qw/generate _generate/;
use Fcntl qw/:flock/;
use File::Basename qw/fileparse/;
declaregen 'Pb::Entry' => qr,^${contest}pb/$component$,;
}
-sub _generate{
+sub generate{
my ($path) = @_;
my ($path_noext, $ext) = $path =~ m/^(.*)\.(.*)$/;
my ($basename, $directories) = fileparse $path_noext;
close $typemap;
}
-sub generate{
- PUBLISH 'genpage', shift;
-}
-
1;
__END__
# Below is stub documentation for your module. You'd better edit it!