/[XML-Feed]/inc/Module/Install/AutoInstall.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/AutoInstall.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: 1144 byte(s)
import XML::Feed 0.12 from CPAN

1 #line 1
2 package Module::Install::AutoInstall;
3
4 use Module::Install::Base;
5 @ISA = qw{Module::Install::Base};
6
7 $VERSION = '0.61';
8
9 use strict;
10
11 sub AutoInstall { $_[0] }
12
13 sub run {
14 my $self = shift;
15 $self->auto_install_now(@_);
16 }
17
18 sub write {
19 my $self = shift;
20 $self->auto_install(@_);
21 }
22
23 sub auto_install {
24 my $self = shift;
25 return if $self->{done}++;
26
27 # Flatten array of arrays into a single array
28 my @core = map @$_, map @$_, grep ref,
29 $self->build_requires, $self->requires;
30
31 my @config = @_;
32
33 # We'll need Module::AutoInstall
34 $self->include('Module::AutoInstall');
35 require Module::AutoInstall;
36
37 Module::AutoInstall->import(
38 (@config ? (-config => \@config) : ()),
39 (@core ? (-core => \@core) : ()),
40 $self->features,
41 );
42
43 $self->makemaker_args( Module::AutoInstall::_make_args() );
44
45 my $class = ref($self);
46 $self->postamble(
47 "# --- $class section:\n" .
48 Module::AutoInstall::postamble()
49 );
50 }
51
52 sub auto_install_now {
53 my $self = shift;
54 $self->auto_install(@_);
55 Module::AutoInstall::do_install();
56 }
57
58 1;

  ViewVC Help
Powered by ViewVC 1.1.26