Script I use to write my dist.ini

gistfile1.txt

#!/opt/markperl/bin/perl

use strict;
use warnings;

use Mojo::Template;
use Path::Class qw(file dir);
use Cwd qw(cwd);

my $dist_name = dir(cwd)->dir_list(-1);
my @bits = split /-/, $dist_name;
unshift @bits, 'lib';
pop @bits;
dir(@bits)->mkpath;

my $template = <<'EOF';
% my $dist_name = shift;
name   = <%= $dist_name %>
author = Mark Fowler <mark@twoshortplanks.com>
copyright_holder = Mark Fowler

[@MAXMIND]
dist = <%= $dist_name %>
-remove = MAXMIND::Contributors
-remove = UploadToCPAN
%= join '', map { "stopwords = $_\n" } split /-/, $dist_name;

[UploadToCPAN]
EOF

print { file('dist.ini')->openw }