/[XML-Feed]/inc/Module/Install/WriteAll.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /inc/Module/Install/WriteAll.pm

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (show annotations)
Sun Mar 16 19:47:49 2008 UTC (16 years ago) by dpavlin
File size: 850 byte(s)
import XML::Feed 0.12 from CPAN

1 #line 1
2 package Module::Install::WriteAll;
3
4 use Module::Install::Base;
5 @ISA = qw(Module::Install::Base);
6
7 $VERSION = '0.61';
8
9 use strict;
10
11 sub WriteAll {
12 my $self = shift;
13 my %args = (
14 meta => 1,
15 sign => 0,
16 inline => 0,
17 check_nmake => 1,
18 @_
19 );
20
21 $self->sign(1) if $args{sign};
22 $self->Meta->write if $args{meta};
23 $self->admin->WriteAll(%args) if $self->is_admin;
24
25 if ( $0 =~ /Build.PL$/i ) {
26 $self->Build->write;
27 } else {
28 $self->check_nmake if $args{check_nmake};
29 unless ( $self->makemaker_args->{'PL_FILES'} ) {
30 $self->makemaker_args( PL_FILES => {} );
31 }
32 if ($args{inline}) {
33 $self->Inline->write;
34 } else {
35 $self->Makefile->write;
36 }
37 }
38 }
39
40 1;

  ViewVC Help
Powered by ViewVC 1.1.26