inc/Module/Install/WriteAll.pm

   1 #line 1
   2 package Module::Install::WriteAll;
   3
   4 use strict;
   5 use Module::Install::Base ();
   6
   7 use vars qw{$VERSION @ISA $ISCORE};
   8 BEGIN {
   9         $VERSION = '0.91';;
  10         @ISA     = qw{Module::Install::Base};
  11         $ISCORE  = 1;
  12 }
  13
  14 sub WriteAll {
  15         my $self = shift;
  16         my %args = (
  17                 meta        => 1,
  18                 sign        => 0,
  19                 inline      => 0,
  20                 check_nmake => 1,
  21                 @_,
  22         );
  23
  24         $self->sign(1)                if $args{sign};
  25         $self->admin->WriteAll(%args) if $self->is_admin;
  26
  27         $self->check_nmake if $args{check_nmake};
  28         unless ( $self->makemaker_args->{PL_FILES} ) {
  29                 $self->makemaker_args( PL_FILES => {} );
  30         }
  31
  32         # Until ExtUtils::MakeMaker support MYMETA.yml, make sure
  33         # we clean it up properly ourself.
  34         $self->realclean_files('MYMETA.yml');
  35
  36         if ( $args{inline} ) {
  37                 $self->Inline->write;
  38         } else {
  39                 $self->Makefile->write;
  40         }
  41
  42         # The Makefile write process adds a couple of dependencies,
  43         # so write the META.yml files after the Makefile.
  44         if ( $args{meta} ) {
  45                 $self->Meta->write;
  46         }
  47
  48         # Experimental support for MYMETA
  49         if ( $ENV{X_MYMETA} ) {
  50                 if ( $ENV{X_MYMETA} eq 'JSON' ) {
  51                         $self->Meta->write_mymeta_json;
  52                 } else {
  53                         $self->Meta->write_mymeta_yaml;
  54                 }
  55         }
  56
  57         return 1;
  58 }
  59
  60 1;