use File::Copy::Recursive 'rcopy';
use File::Spec ();
+my $SAFETY = 0;
+
our @IGNORE =
qw/Build Build.PL Changes MANIFEST META.yml Makefile.PL Makefile README
_build blib lib script t inc/;
=head1 METHODS
+=head2 catalyst
+
+=cut
+
+sub catalyst {
+ my $self = shift;
+ print <<EOF;
+*** Module::Install::Catalyst
+EOF
+ $self->catalyst_files;
+ $self->catalyst_par;
+ print <<EOF;
+*** Module::Install::Catalyst finished.
+EOF
+}
+
=head2 catalyst_files
=cut
# Workaround for a namespace conflict
sub catalyst_par {
my ( $self, $par ) = @_;
- print <<EOF;
-*** Module::Install::Catalyst
-EOF
+ return if $SAFETY;
+ $SAFETY++;
my $name = $self->name;
my $usage = $USAGE;
$usage =~ s/"/\\"/g;
EOF
print <<EOF;
Please run "make catalyst_par" to create the PAR package!
-*** Module::Install::Catalyst finished.
EOF
}
die "Please install Module::ScanDeps\n" if $@;
my $root = $FindBin::Bin;
+ $class_name =~ s/-/::/g;
my $path = File::Spec->catfile( 'blib', 'lib', split( '::', $class_name ) );
$path .= '.pm';
unless ( -f $path ) {