I pulled this off with Dist::Zilla::Plugin::Hook::AfterMint which makes it easy to drop perl code into the profile.ini file like so:
[Hook::AfterMint] . = use Term::Prompt; . = use File::Util; . = my $root = $_[0]->{mint_root}->canonpath; . = my $command = prompt('e', "Enter command name: ", '', '', '[a-z]+ +'); . = $command =~ s/\s//g; . = my $old_file = File::Spec->catfile($root, 'bin', 'my_command'); . = my $new_file = File::Spec->catfile($root, 'bin', $command); . = rename $old_file, $new_file; . = my $file = File::Util->new(); . = $file->write_file(file => $new_file, mode => 'append', content => +"\n# PODNAME: $command"); . = my $subcmds = prompt('x', "Enter subcommand names: ", '', ''); . = $subcmds =~ s/\s//g; <snip>More code to generate the subcommands here</snip>
$PM = "Perl Monk's";
$MCF = "Most Clueless Friar Abbot Bishop Pontiff Deacon Curate Priest";
$nysus = $PM . ' ' . $MCF;
Click here if you love Perl Monks
In reply to Re: Dist::Zilla: Possible to create the name of newly minted file dynamically?
by nysus
in thread Dist::Zilla: Possible to create the name of newly minted file dynamically?
by nysus
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |