If you add

compact => 1,
[download]

It still doesn't add the version number, as recommended in the excellent How to make a CPAN Module Distribution, but now it is much easier to do that too. The following lines, added to your script (together with the "compact" argument) takes care of this:

my $dir_name = $module_name;
$dir_name =~ s/::/-/g;

print STDERR "renaming '$dir_name' to '$dir_name-$version'\n"; 
rename $dir_name, "$dir_name-$version" 
    or warn "Could not rename '$dir_name' to '$dir_name-$version': $!"
+;
[download]

Note that you must upgrade ExtUtils::ModuleMaker to a newer version for this to work, I am using version 0.204, while whatever the last one I had was, did not have the compact parameter.

Here's my revamp of simonflk's utility rolling in D&P's compact stuff:

STANDARD COMPACT USAGE:

$> newmodule -name Foo::Bar -version 0.01 -compact 1
$> newmodule -n Foo::Bar -v 0.01 -c 1

COMPACT USAGE WITH VERSION # IN FOLDER NAME:

$> newmodule -name Foo::Bar -version 0.01 -compact 2
$> newmodule -n Foo::Bar -v 0.01 -c 2
$> newmodule -n Foo::Bar -v 0.01 (My Default Setting)

DEFAULT FOLDER NAMING USAGE:

$> newmodule -name Foo::Bar -version 0.01 -compact 0
$> newmodule -n Foo::Bar -v 0.01 -c 0

#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use ExtUtils::ModuleMaker 0.204;

my %author = 
(
    NAME      => 'Christopher Baker',
    EMAIL     => 'ignatz@ignatzmouse.com',
    # CPANID    => 'IGNATZ', Someday *SIGH*
    WEBSITE   => 'http://www.ignatzmouse.com'
);

# Set some defaults
my $license         = 'perl';
my $version         = '0.01';
my $module_name     = '';
my $compact         = 2;
my $extra_modules   = '';
my @extra_modules   = ();

GetOptions
(
    'name=s'      => \$module_name, 
    'version:f'   => \$version, 
    'license:s'   => \$license, 
    'extra:s'     => \$extra_modules,
    'compact:i'   => \$compact
);

Usage() unless $module_name;

######################################################################
+#########
# Now make the module
######################################################################
+#########

push @extra_modules, {NAME => $_, ABSTRACT => $_}
    for split /,/, $extra_modules;

Generate_Module_Files
(
    NAME           => $module_name,
    ABSTRACT       => $module_name,
    AUTHOR         => \%author,
    VERSION        => $version,
    LICENSE        => $license,
    compact        => $compact, # Module uses wrong option case, not C
+OMPACT
    EXTRA_MODULES  => \@extra_modules
);

if ($compact == 2) 
{
    my $dir_name = $module_name;
    $dir_name =~ s/::/-/g;

    print STDERR "renaming '$dir_name' to '$dir_name-$version'\n"; 
    rename $dir_name, "$dir_name-$version" 
        or warn "Could not rename '$dir_name' to '$dir_name-$version':
+ $!";
}

sub Usage
{
    my ($prog) = $0 =~ /\/([^\/]+)$/;
print <<HELP;
$prog - Simple Module Maker

Usage: $prog <-name ModuleName> [-version=?] [-extra=?,?] [-license=?]
+ [-compact=?]

Eg:    $prog -name My::Module
       $prog -name My::Module -version 0.11
                    -extra My::Utils,My::Extra -license perl

HELP
}
[download]

()-()
 \"/
  `                                                     

If you execute this script in the same directory as it and you don't pass any parameters, your Usage() doesn't construct $prog correctly.

    my ($prog) = $0 =~ /\/([^\/]+)$/;

---- Change to:

use File::Basename;

...

    my ($prog) = basename($0);
[download]

------
We are the carpenters and bricklayers of the Information Age.

The idea is a little like C++ templates, except not quite so brain-meltingly complicated. -- TheDamian, Exegesis 6

Please remember that I'm crufty and crochety. All opinions are purely mine and all code is untested, unless otherwise specified.

compact        => $compact, # Module uses wrong option case, not COMPACT

Not anymore, at least as of version 0.32. Couldn't find anything in the changelog regarding the switch, but it's 'correctly' capitalized now. Just wanted to give a heads up.

just an FYI, i guess ...

I've recently posted ExtUtils::ModuleMaker::TT to CPAN, which extends ModuleMaker to allow user-customized templates to support personal coding style. Also, it includes makeperlmod -- a new command line script that will read default ModuleMaker values from a config file when generating skeleton distributions. As a side benefit, it can add new skeleton .pm and .t files into an existing ModuleMaker distribution tree.

perl -MExtUtils::ModuleMaker -e "Quick_Module ('Foo::Bar')"

But now, life is easier still; just run the script

modulemaker
[download]