inc/Module/Install/WriteAll.pm

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