Module/Install/AutoInstall.pm

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

use strict;
use Module::Install::Base;

use vars qw{$VERSION $ISCORE @ISA};
BEGIN {
        $VERSION = '0.76';
        $ISCORE  = 1;
        @ISA     = qw{Module::Install::Base};
}

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