#!/usr/bin/perl -w

=head1 NAME

module-starter - Creates a skeleton module distribution

=cut

use strict;
use Module::Starter;
use Getopt::Long;
use Pod::Usage;

my @modules;
my $distro;
my $dir;

GetOptions(
    "distro=s" =>   \$distro,
    "module=s" =>   \@modules,

    "author=s" =>   \$Module::Starter::author,
    "email=s" =>    \$Module::Starter::email,
    force =>        \$Module::Starter::force,
    verbose =>      \$Module::Starter::verbose,
    version =>      sub { print "module-starter v$Module::Starter::VERSION\n"; exit 1; },
    help =>         sub { pod2usage(1); },
) or pod2usage(2); 

create_distro(
    distro  => $distro,
    modules => [@modules],
);


=head1 SYNOPSIS

module-starter [options]

Options:

    --module=module Module name (repeatable)
    --distro=name   Distribution name (optional)
    --dir           Directory name to create new module in (optional)

    --author=name   Author's name (required)
    --email=email   Author's email (required)

    --help          Show this message

Example:

    module-starter --module=Foo::Bar,Foo::Bat \
        --author="Andy Lester" --email=andy@petdance.com

=cut

