← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libfile-remove-perl/intrepid

« back to all changes in this revision

Viewing changes to inc/Module/Install/WriteAll.pm

  • Committer: Bazaar Package Importer
  • Author(s): gregor herrmann
  • Date: 2008-06-14 21:24:16 UTC
  • mfrom: (1.1.7 upstream)
  • Revision ID: james.westby@ubuntu.com-20080614212416-vzgst4z13tj48v38
Tags: 1.41-1
* New upstream release.
* debian/watch: extended regexp for matching upstream releases.
* Set Standards-Version to 3.8.0 (no changes).
* Add /me to Uploaders.
* Refresh debian/rules, no functional changes.

Show diffs side-by-side

added added

removed removed

Lines of Context:
inc/Module/Install/WriteAll.pm
 
1
#line 1
 
2
package Module::Install::WriteAll;
 
3
 
 
4
use strict;
 
5
use Module::Install::Base;
 
6
 
 
7
use vars qw{$VERSION @ISA $ISCORE};
 
8
BEGIN {
 
9
        $VERSION = '0.75';
 
10
        @ISA     = qw{Module::Install::Base};
 
11
        $ISCORE  = 1;
 
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
        $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
 
 
40
1;