inc/Module/Install/WriteAll.pm

   1 package Module::Install::WriteAll;
   2
   3 use strict;
   4 use Module::Install::Base;
   5
   6 use vars qw{$VERSION @ISA $ISCORE};
   7 BEGIN {
   8         $VERSION = '0.72';
   9         @ISA     = qw{Module::Install::Base};
  10         $ISCORE  = 1;
  11 }
  12
  13 sub WriteAll {
  14         my $self = shift;
  15         my %args = (
  16                 meta        => 1,
  17                 sign        => 0,
  18                 inline      => 0,
  19                 check_nmake => 1,
  20                 @_,
  21         );
  22
  23         $self->sign(1)                if $args{sign};
  24         $self->Meta->write            if $args{meta};
  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         if ( $args{inline} ) {
  33                 $self->Inline->write;
  34         } else {
  35                 $self->Makefile->write;
  36         }
  37 }
  38
  39 1;