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
my ( $self, $par ) = @_;
return if $SAFETY;
$SAFETY++;
- print <<EOF;
-*** Module::Install::Catalyst
-EOF
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 ) {