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.77';
  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->Meta->write            if $args{meta};
  26         $self->admin->WriteAll(%args) if $self->is_admin;
  27
  28         $self->check_nmake if $args{check_nmake};
  29         unless ( $self->makemaker_args->{PL_FILES} ) {
  30                 $self->makemaker_args( PL_FILES => {} );
  31         }
  32
  33         if ( $args{inline} ) {
  34                 $self->Inline->write;
  35         } else {
  36                 $self->Makefile->write;
  37         }
  38 }
  39
  40 1;