inc/Module/Install/WriteAll.pm

   1 #line 1
   2 package Module::Install::WriteAll;
   3
   4 use Module::Install::Base;
   5 @ISA = qw(Module::Install::Base);
   6
   7 $VERSION = '0.61';
   8
   9 use strict;
  10
  11 sub WriteAll {
  12     my $self = shift;
  13     my %args = (
  14         meta        => 1,
  15         sign        => 0,
  16         inline      => 0,
  17         check_nmake => 1,
  18         @_
  19     );
  20
  21     $self->sign(1)                if $args{sign};
  22     $self->Meta->write            if $args{meta};
  23     $self->admin->WriteAll(%args) if $self->is_admin;
  24
  25     if ( $0 =~ /Build.PL$/i ) {
  26         $self->Build->write;
  27     } else {
  28         $self->check_nmake if $args{check_nmake};
  29         unless ( $self->makemaker_args->{'PL_FILES'} ) {
  30                 $self->makemaker_args( PL_FILES => {} );
  31         }
  32         if ($args{inline}) {
  33             $self->Inline->write;
  34         } else {
  35             $self->Makefile->write;
  36         }
  37     }
  38 }
  39
  40 1;