view release on metacpan or  search on metacpan

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

		[ 'xt', 'author',   'pod.t' ],
		[ 'xt', 'author',   'perlcritic.t' ],
		[ 'xt', 'author',   'fixme.t' ],
		[ 'xt', 'author',   'common_mistakes.t' ],
		[ 'xt', 'author',   'changes.t' ],
		[ 'xt', 'author',   'version.t' ],
	);

	my %contents_of = do {
		local $INPUT_RECORD_SEPARATOR = undef;
		( q{}, split m{_____\[ [ ] (\S+) [ ] \]_+\n}smx, <DATA> );
	};

	for ( values %contents_of ) {
		s/^!=([[:lower:]])/=$1/gxms;
	}

	for my $ref_path (@files) {
		my $abs_path =
		  File::Spec->catfile( $ENV{HOME}, '.module-starter', 'CSJEWELL',
			@{$ref_path} );