view release on metacpan or  search on metacpan

lib/Module/Starter/CSJEWELL.pm  view on Meta::CPAN

	my @dirparts = ( $self->{basedir}, 't' );
	foreach my $tdir (
		File::Spec->catdir( $self->{basedir}, 't' ),
		File::Spec->catdir( $self->{basedir}, 'xt' ),
		File::Spec->catdir( $self->{basedir}, 'xt', 'settings' ),
		File::Spec->catdir( $self->{basedir}, 'xt', 'author' ),
	  )
	{

		if ( not -d $tdir ) {
			local @ARGV = $tdir;
			mkpath();
			$self->progress("Created $tdir");
		}
	} ## end foreach my $tdir ( File::Spec...)

	my $fname = File::Spec->catfile( $self->{basedir}, $filename );
	$self->create_file( $fname, $content );
	$self->progress("Created $fname");

	return "$filename";

lib/Module/Starter/CSJEWELL.pm  view on Meta::CPAN

		chomp $ENV{HOME};
		croak 'Not a valid directory. Aborting.'
		  if !-d $ENV{HOME};
	}

	# Create the directories...
	my $template_dir =
	  File::Spec->catdir( $ENV{HOME}, '.module-starter', 'CSJEWELL' );
	if ( not -d $template_dir ) {
		print {*STDERR} "Creating $template_dir...";
		local @ARGV = $template_dir;
		mkpath;
		print {*STDERR} "done.\n";
	}

	my $template_test_dir =
	  File::Spec->catdir( $ENV{HOME}, '.module-starter', 'CSJEWELL', 't' );
	if ( not -d $template_test_dir ) {
		print {*STDERR} "Creating $template_test_dir...";
		local @ARGV = $template_test_dir;
		mkpath;
		print {*STDERR} "done.\n";
	}

	my $template_xtest_dir =
	  File::Spec->catdir( $ENV{HOME}, '.module-starter', 'CSJEWELL', 'xt' );
	if ( not -d $template_xtest_dir ) {
		print {*STDERR} "Creating $template_xtest_dir...";
		local @ARGV = $template_xtest_dir;
		mkpath;
		print {*STDERR} "done.\n";
	}

	my $template_authortest_dir =
	  File::Spec->catdir( $ENV{HOME}, '.module-starter', 'CSJEWELL', 'xt',
		'author' );
	if ( not -d $template_authortest_dir ) {
		print {*STDERR} "Creating $template_authortest_dir...";
		local @ARGV = $template_authortest_dir;
		mkpath;
		print {*STDERR} "done.\n";
	}

	my $template_authortest_settings =
	  File::Spec->catdir( $ENV{HOME}, '.module-starter', 'CSJEWELL', 'xt',
		'settings' );
	if ( not -d $template_authortest_settings ) {
		print {*STDERR} "Creating $template_authortest_settings...";
		local @ARGV = $template_authortest_settings;
		mkpath;
		print {*STDERR} "done.\n";
	}

	# Create or update the config file (making a backup, of course)...
	my $config_file =
	  File::Spec->catfile( $ENV{HOME}, '.module-starter', 'config' );

	my @config_info;