source: perl/modules/IRC/inc/Module/Install/WriteAll.pm @ 99c1f46

barnowl_perlaimdebianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 99c1f46 was 43c62e4, checked in by Nelson Elhage <nelhage@mit.edu>, 16 years ago
Commit inc/ under IRC so we build on systems with too old a M::I
  • Property mode set to 100644
File size: 916 bytes
Line 
1#line 1
2package Module::Install::WriteAll;
3
4use strict;
5use Module::Install::Base;
6
7use vars qw{$VERSION $ISCORE @ISA};
8BEGIN {
9        $VERSION = '0.68';
10        $ISCORE  = 1;
11        @ISA     = qw{Module::Install::Base};
12}
13
14sub 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
431;
Note: See TracBrowser for help on using the repository browser.