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";