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 $ISCORE @ISA};
   8 BEGIN {
   9         $VERSION = '0.63';
  10         $ISCORE  = 1;
  11         @ISA     = qw{Module::Install::Base};
  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     if ( $0 =~ /Build.PL$/i ) {
  29         $self->Build->write;
  30     } else {
  31         $self->check_nmake if $args{check_nmake};
  32         unless ( $self->makemaker_args->{'PL_FILES'} ) {
  33                 $self->makemaker_args( PL_FILES => {} );
  34         }
  35         if ($args{inline}) {
  36             $self->Inline->write;
  37         } else {
  38             $self->Makefile->write;
  39         }
  40     }
  41 }
  42
  43 1;