Inline stuff for ingy

gistfile1.txt

extends 'Dist::Zilla::Plugin::MakeMaker::Awesome';
with 'Dist::Zilla::Role::AfterBuild';  # gives us the after_build hook

has module => (
    isa => 'ArrayRef[Str]',
    traits => ['Array'],
    handles => { modules => 'elements' },
    required => 1,
);

sub mvp_multivalue_args { qw(module) }

# add our FixMakefile call to Makefile.PL, respecting any other
# footer lines that were provided in dist.ini
around _build_footer => sub {
    my $orig = shift;
    my $self = shift;
    return join "\n",
        'FixMakefile(',
        (map { "  module => '" . $_ . "'," } $self->modules),
        ');',
        '',
        $self->$orig(@_);
};

sub after_build {
    my ($self, $opts) = @);
    my $build_root = $opts->{build_root};

    ...
}


# but, if we want a file munger:

with 'Dist::Zilla::Role::FileMunger';
use List::Util 1.33 'none';

sub munge_file {
    my ($self, $file) = @_;

    # this is a bit of a hack, and should be replaced with some ethercode
    # using Module::Metadata
    (my $module_name = $file->name) =~ s{/}{::}g;
    $module_name =~ s/\.pm$//;

    return if none { $module_name eq $_ } $self->modules;

    # now we have a file object in $file, whose package name corresponds to
    # something in $self->modules.
    # its content is in ->content, a r/w accessor.

    # and here, a miracle occurs...
    $file->content('new file content here');

    return;
}

Or, using afterbuild;

with 'Dist::Zilla::Role::AfterBuild';
sub after_build { ... }