/[vz-tools]/trunk/inc/Module/Install/WriteAll.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/inc/Module/Install/WriteAll.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 51 by dpavlin, Thu Nov 8 11:35:15 2007 UTC revision 52 by dpavlin, Fri Aug 15 09:59:29 2008 UTC
# Line 4  package Module::Install::WriteAll; Line 4  package Module::Install::WriteAll;
4  use strict;  use strict;
5  use Module::Install::Base;  use Module::Install::Base;
6    
7  use vars qw{$VERSION $ISCORE @ISA};  use vars qw{$VERSION @ISA $ISCORE};
8  BEGIN {  BEGIN {
9          $VERSION = '0.67';          $VERSION = '0.76';
         $ISCORE  = 1;  
10          @ISA     = qw{Module::Install::Base};          @ISA     = qw{Module::Install::Base};
11            $ISCORE  = 1;
12  }  }
13    
14  sub WriteAll {  sub WriteAll {
15      my $self = shift;          my $self = shift;
16      my %args = (          my %args = (
17          meta        => 1,                  meta        => 1,
18          sign        => 0,                  sign        => 0,
19          inline      => 0,                  inline      => 0,
20          check_nmake => 1,                  check_nmake => 1,
21          @_                  @_,
22      );          );
23    
24      $self->sign(1)                if $args{sign};          $self->sign(1)                if $args{sign};
25      $self->Meta->write            if $args{meta};          $self->Meta->write            if $args{meta};
26      $self->admin->WriteAll(%args) if $self->is_admin;          $self->admin->WriteAll(%args) if $self->is_admin;
27    
28      if ( $0 =~ /Build.PL$/i ) {          $self->check_nmake if $args{check_nmake};
29          $self->Build->write;          unless ( $self->makemaker_args->{PL_FILES} ) {
30      } else {                  $self->makemaker_args( PL_FILES => {} );
31          $self->check_nmake if $args{check_nmake};          }
32          unless ( $self->makemaker_args->{'PL_FILES'} ) {  
33                  $self->makemaker_args( PL_FILES => {} );          if ( $args{inline} ) {
34          }                  $self->Inline->write;
35          if ($args{inline}) {          } else {
36              $self->Inline->write;                  $self->Makefile->write;
37          } else {          }
             $self->Makefile->write;  
         }  
     }  
38  }  }
39    
40  1;  1;
Legend:
Removed from v.51  
changed lines
  Added in v.52
  ViewVC Help
Powered by ViewVC 1.1.26