Module/Install/AutoInstall.pm

#line 1
package Module::Install::AutoInstall;

use Module::Install::Base;
@ISA = qw{Module::Install::Base};

$VERSION = '0.61';

use strict;

sub AutoInstall { $_[0] }

sub run {
    my $self = shift;
    $self->auto_install_now(@_);
}

sub write {
    my $self = shift;
    $self->auto_install(@_);
}

sub auto_install {
    my $self = shift;
    return if $self->{done}++;

    # Flatten array of arrays into a single array
    my @core = map @$_, map @$_, grep ref,
               $self->build_requires, $self->requires;

    my @config = @_;

    # We'll need Module::AutoInstall
    $self->include('Module::AutoInstall');
    require Module::AutoInstall;

    Module::AutoInstall->import(
        (@config ? (-config => \@config) : ()),
        (@core   ? (-core   => \@core)   : ()),
        $self->features,
    );

    $self->makemaker_args( Module::AutoInstall::_make_args() );

    my $class = ref($self);
    $self->postamble(
        "# --- $class section:\n" .
        Module::AutoInstall::postamble()
    );
}

sub auto_install_now {
    my $self = shift;
    $self->auto_install(@_);
    Module::AutoInstall::do_install();
}

1;
1	dpavlin	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;