view release on metacpan or  search on metacpan

lib/CGI/Application/Structured/Tools/templates/create_controller.pl  view on Meta::CPAN

# '-'is  namespace separator for main_module
#
use constant DISTRO => "<tmpl_var main_module>";

#
# user supplies these:
#
my $new_module;
my $result = GetOptions( "name=s" => \$new_module, );

sub usage()
{
	print "usage:\n";
	print "  cd MyApp\n";
	print "  perl script/create_controller.pl --name=MyMod\n";
}

if ( !$result )     { usage(); die; }
if ( !$new_module ) { usage(); die; }

create_submodule($new_module);