관리-도구

편집 파일: HomeEnv.pm

package CPANPLUS::Config::HomeEnv;

use strict;
use File::Spec;
use vars qw($VERSION);

$VERSION = "0.9138";

sub setup {
  my $conf = shift;
  $conf->set_conf( base => File::Spec->catdir( $ENV{PERL5_CPANPLUS_HOME}, '.cpanplus' ) )
	  if $ENV{PERL5_CPANPLUS_HOME};
  return 1;
}

qq'Wherever I hang my hat is home';

__END__

=head1 NAME

CPANPLUS::Config::HomeEnv - Set the environment for the CPANPLUS base dir

=head1 SYNOPSIS

export PERL5_CPANPLUS_HOME=/home/moo/perls/conf/perl-5.8.9/

=head1 DESCRIPTION

CPANPLUS::Config::HomeEnv is a L<CPANPLUS::Config> file that allows the CPANPLUS user to
specify where L<CPANPLUS> gets its configuration from.

Setting the environment variable C<PERL5_CPANPLUS_HOME> to a path location, determines
where the C<.cpanplus> directory will be located.

=head1 METHODS

=over

=item C<setup>

Called by L<CPANPLUS::Configure>.

=back

=head1 AUTHOR

Chris C<BinGOs> Williams <chris@bingosnet.co.uk>

Contributions and patience from Jos Boumans the L<CPANPLUS> guy!

=head1 LICENSE

This module may be used, modified, and distributed under the same terms as Perl itself. Please see the license that came with your Perl distribution for details.

=head1 SEE ALSO

L<CPANPLUS>

=cut