/usr/share/perl5/CPANPLUS/Dist/Autobundle.pm is in libcpanplus-perl 0.9172-1ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 | package CPANPLUS::Dist::Autobundle;
use strict;
use warnings;
use CPANPLUS::Error qw[error msg];
use Params::Check qw[check];
use Locale::Maketext::Simple Class => 'CPANPLUS', Style => 'gettext';
use vars qw[$VERSION];
$VERSION = "0.9172";
use base qw[CPANPLUS::Dist::Base];
=head1 NAME
CPANPLUS::Dist::Autobundle - distribution class for installation snapshots
=head1 SYNOPSIS
$modobj = $cb->parse_module( module => 'file://path/to/Snapshot_XXYY.pm' );
$modobj->install;
=head1 DESCRIPTION
C<CPANPLUS::Dist::Autobundle> is a distribution class for installing installation
snapshots as created by C<CPANPLUS>' C<autobundle> command.
All modules as mentioned in the snapshot will be installed on your system.
=cut
sub init {
my $dist = shift;
my $status = $dist->status;
$status->mk_accessors(
qw[prepared created installed _prepare_args _create_args _install_args _metadata]
);
return 1;
}
sub prepare {
my $dist = shift;
my %args = @_;
### store the arguments, so ->install can use them in recursive loops ###
$dist->status->_prepare_args( \%args );
return $dist->status->prepared( 1 );
}
sub create {
my $dist = shift;
my $self = $dist->parent;
### we're also the cpan_dist, since we don't need to have anything
### prepared
$dist = $self->status->dist_cpan if $self->status->dist_cpan;
$self->status->dist_cpan( $dist ) unless $self->status->dist_cpan;
my $cb = $self->parent;
my $conf = $cb->configure_object;
my %hash = @_;
my( $force, $verbose, $prereq_target, $prereq_format, $prereq_build);
my $args = do {
local $Params::Check::ALLOW_UNKNOWN = 1;
my $tmpl = {
force => { default => $conf->get_conf('force'),
store => \$force },
verbose => { default => $conf->get_conf('verbose'),
store => \$verbose },
prereq_target => { default => '', store => \$prereq_target },
### don't set the default prereq format to 'makemaker' -- wrong!
prereq_format => { #default => $self->status->installer_type,
default => '',
store => \$prereq_format },
prereq_build => { default => 0, store => \$prereq_build },
};
check( $tmpl, \%hash ) or return;
};
### maybe we already ran a create on this object? ###
return 1 if $dist->status->created && !$force;
### store the arguments, so ->install can use them in recursive loops ###
$dist->status->_create_args( \%hash );
msg(loc("Resolving prerequisites mentioned in the bundle"), $verbose);
### this will set the directory back to the start
### dir, so we must chdir /again/
my $ok = $dist->_resolve_prereqs(
format => $prereq_format,
verbose => $verbose,
prereqs => $self->status->prereqs,
target => $prereq_target,
force => $force,
prereq_build => $prereq_build,
);
### if all went well, mark it & return
return $dist->status->created( $ok ? 1 : 0);
}
sub install {
my $dist = shift;
my %args = @_;
### store the arguments, so ->install can use them in recursive loops ###
$dist->status->_install_args( \%args );
return $dist->status->installed( 1 );
}
1;
|