root/Encode-DoubleEncodedUTF8/trunk/inc/Module/Install/WriteAll.pm

Revision 2162 (checked in by miyagawa, 13 years ago)

import

Line 
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.64';
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;
Note: See TracBrowser for help on using the browser.