source: perl/modules/WordWrap/inc/Module/Install/WriteAll.pm @ 45cf49f

debianrelease-1.10release-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 45cf49f was 1375a6a, checked in by Nelson Elhage <nelhage@mit.edu>, 16 years ago
Add a word-wrapping style to the repo and default build.
  • Property mode set to 100644
File size: 721 bytes
Line 
1#line 1
2package Module::Install::WriteAll;
3
4use strict;
5use Module::Install::Base;
6
7use vars qw{$VERSION @ISA $ISCORE};
8BEGIN {
9        $VERSION = '0.79';
10        @ISA     = qw{Module::Install::Base};
11        $ISCORE  = 1;
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        $self->check_nmake if $args{check_nmake};
29        unless ( $self->makemaker_args->{PL_FILES} ) {
30                $self->makemaker_args( PL_FILES => {} );
31        }
32
33        if ( $args{inline} ) {
34                $self->Inline->write;
35        } else {
36                $self->Makefile->write;
37        }
38}
39
401;
Note: See TracBrowser for help on using the repository browser.