diff options
| -rw-r--r-- | Changes | 2 | ||||
| -rw-r--r-- | dist.ini | 5 | ||||
| -rw-r--r-- | lib/Dist/Zilla/Plugin/MakefilePL/Develop.pm | 77 |
3 files changed, 3 insertions, 81 deletions
@@ -1,4 +1,4 @@ -Revision history for Dist-Zilla-Plugin-MakefilePL-Develop +Revision history for ExtUtils-MakeMaker-Dist-Zilla-Develop {{$NEXT}} - Initial release @@ -1,11 +1,10 @@ -name = Dist-Zilla-Plugin-MakefilePL-Develop +name = ExtUtils-MakeMaker-Dist-Zilla-Develop author = Jesse Luehrs <doy at tozt dot net> license = Perl_5 copyright_holder = Jesse Luehrs [@DOY] -dist = Dist-Zilla-Plugin-MakefilePL-Develop +dist = ExtUtils-MakeMaker-Dist-Zilla-Develop [Prereqs] -Dist::Zilla = 0 ExtUtils::MakeMaker = 0 diff --git a/lib/Dist/Zilla/Plugin/MakefilePL/Develop.pm b/lib/Dist/Zilla/Plugin/MakefilePL/Develop.pm deleted file mode 100644 index 0c6ddcd..0000000 --- a/lib/Dist/Zilla/Plugin/MakefilePL/Develop.pm +++ /dev/null @@ -1,77 +0,0 @@ -package Dist::Zilla::Plugin::MakefilePL::Develop; -use Moose; - -with qw( - Dist::Zilla::Role::FileGatherer - Dist::Zilla::Role::FileMunger - Dist::Zilla::Role::FilePruner -); - -sub gather_files { - my $self = shift; - return unless $self->zilla->isa('Dist::Zilla::Dist::Minter'); - - (my $mod_name = $self->zilla->name) =~ s/-/::/g; - my $content = <<CONTENTS; -# This module uses Dist::Zilla for development. This Makefile.PL will let you -# run the tests, but you are encouraged to install Dist::Zilla and the needed -# plugins if you intend on doing any serious hacking. - -use strict; -use warnings; - -use ExtUtils::MakeMaker::Dist::Zilla::Develop; - -WriteMakefile( - NAME => '$mod_name', -); -CONTENTS - - $self->add_file( - Dist::Zilla::File::InMemory->new( - name => 'Makefile.PL', - content => $content, - ) - ); -} - -sub munge_files { - my $self = shift; - return unless $self->zilla->isa('Dist::Zilla::Dist::Minter'); - - my ($dist_ini) = grep { $_->name eq 'dist.ini' } @{ $self->zilla->files }; - return unless $dist_ini; - - if ($dist_ini->isa('Dist::Zilla::File::OnDisk')) { - my $content = $dist_ini->content; - Dist::Zilla::File::InMemory->meta->rebless_instance( - $dist_ini, - content => $content . "\n[MakefilePL::Develop]\n", - ); - } - elsif ($dist_ini->isa('Dist::Zilla::File::InMemory')) { - $dist_ini->content($dist_ini->content . "\n[MakefilePL::Develop]\n"); - } - elsif ($dist_ini->isa('Dist::Zilla::File::FromCode')) { - my $code = $dist_ini->code; - my $weak_dist_ini = $dist_ini; - Scalar::Util::weaken($weak_dist_ini); - $dist_ini->code(sub { - $weak_dist_ini->$code . "\n[MakefilePL::Develop]\n" - }); - } -} - -sub prune_files { - my $self = shift; - return unless $self->zilla->isa('Dist::Zilla::Dist::Builder'); - for my $file (@{ $self->zilla->files }) { - next unless $file->name eq 'Makefile.PL'; - $self->zilla->prune_file($file); - } -} - -__PACKAGE__->meta->make_immutable; -no Moose; - -1; |