source: perl/modules/Jabber/inc/Module/Install/WriteAll.pm @ 925faae

barnowl_perlaimdebianrelease-1.4release-1.5release-1.6release-1.7release-1.8release-1.9
Last change on this file since 925faae was 300b470, checked in by Nelson Elhage <nelhage@mit.edu>, 14 years ago
Adding a Module::Install plugin for building barnowl plugins. It needs a lot of improvement.
  • 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.65';
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.