#!/usr/bin/env perl # Copyright (c) 2007 Jonathan Rockway use strict; use warnings; use CatalystX::Starter; my $module = shift @ARGV || die "Need a module name. RTFM."; my $dir = CatalystX::Starter::_go($module); print "Created files in $dir.\n"; =head1 NAME catalystx-starter - create a CPAN-able Catalyst component =head1 USAGE catalystx-starter Your::Module cd Your-Module # enjoy =head1 SEE ALSO Read L for all the details. =head1 AUTHOR Jonathan Rockway C<< >> =cut