File Coverage

lib/Module/New.pm

Criterion	Covered	Total	%
statement	19	29	65.5
branch	1	8	12.5
condition	0	3	0.0
subroutine	7	9	77.7
pod	5	5	100.0
total	32	54	59.2

package Module::New;

use strict;
use warnings;
use Carp;
use Module::New::Loader;

our $VERSION = '0.14';

my $CONTEXT;

sub options {qw( help|h|? author=s email=s force|f grace subdir|in=s )}
sub default { 'help' }

sub setup {
  my ($class, @bases) = @_;

  my $loader = Module::New::Loader->new( @bases );

  $CONTEXT = $loader->load( 'Context', undef, @bases );
  $CONTEXT->config->get_options( $class->options );
  $CONTEXT;
}

sub context { $CONTEXT ? $CONTEXT : shift->setup }

sub dispatch {
  my ($class, @bases) = @_;

  $class->setup(@bases);

  my $name = shift @ARGV || $class->default;

  unshift @ARGV, $name if $CONTEXT->config('help');

  my $recipe = $CONTEXT->loader->load_class( Recipe => $name );

  $CONTEXT->config->get_options( $recipe->options );

  croak "author is required" unless $CONTEXT->config('author');
  croak "email is required"  unless $CONTEXT->config('email');

  $recipe->run( @ARGV );
}

1;

__END__