inc/Module/Install/WriteAll.pm

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