Upgrade Module::Install to 1.00

[manu/RT-Extension-SearchResults-XLS.git] / inc / Module / Install / WriteAll.pm

diff --git a/inc/Module/Install/WriteAll.pm b/inc/Module/Install/WriteAll.pm
index f35620f..d0f6599 100644 (file)
--- a/inc/Module/Install/WriteAll.pm
+++ b/inc/Module/Install/WriteAll.pm
@@ -2,11 +2,11 @@
 package Module::Install::WriteAll;
 
 use strict;
-use Module::Install::Base;
+use Module::Install::Base ();
 
 use vars qw{$VERSION @ISA $ISCORE};
 BEGIN {
-       $VERSION = '0.77';
+       $VERSION = '1.00';
        @ISA     = qw{Module::Install::Base};
        $ISCORE  = 1;
 }
@@ -22,19 +22,42 @@ sub WriteAll {
        );
 
        $self->sign(1)                if $args{sign};
-       $self->Meta->write            if $args{meta};
        $self->admin->WriteAll(%args) if $self->is_admin;
 
        $self->check_nmake if $args{check_nmake};
        unless ( $self->makemaker_args->{PL_FILES} ) {
-               $self->makemaker_args( PL_FILES => {} );
+               # XXX: This still may be a bit over-defensive...
+               unless ($self->makemaker(6.25)) {
+                       $self->makemaker_args( PL_FILES => {} ) if -f 'Build.PL';
+               }
        }
 
+       # Until ExtUtils::MakeMaker support MYMETA.yml, make sure
+       # we clean it up properly ourself.
+       $self->realclean_files('MYMETA.yml');
+
        if ( $args{inline} ) {
                $self->Inline->write;
        } else {
                $self->Makefile->write;
        }
+
+       # The Makefile write process adds a couple of dependencies,
+       # so write the META.yml files after the Makefile.
+       if ( $args{meta} ) {
+               $self->Meta->write;
+       }
+
+       # Experimental support for MYMETA
+       if ( $ENV{X_MYMETA} ) {
+               if ( $ENV{X_MYMETA} eq 'JSON' ) {
+                       $self->Meta->write_mymeta_json;
+               } else {
+                       $self->Meta->write_mymeta_yaml;
+               }
+       }
+
+       return 1;
 }
 
 1;