CPAN::Packager::Home - detect Home


CPAN-Packager documentation Contained in the CPAN-Packager distribution.

Index


Code Index:

NAME

Top

CPAN::Packager::Home - detect Home

SYNOPSIS

Top

  use CPAN::Packager::Util;

DESCRIPTION

Top

AUTHOR

Top

Takatoshi Kitano <kitano.tk@gmail.com>

SEE ALSO

Top

LICENSE

Top

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.


CPAN-Packager documentation Contained in the CPAN-Packager distribution.

package CPAN::Packager::Home;
use strict;
use warnings;
use CPAN::Packager::FileUtil qw(dir);

sub detect {
    my $class = shift;
    if ( $ENV{CPAN_PACKAGER_HOME} ) {
        return dir( $ENV{CPAN_PACKAGER_HOME} );
    }
    return dir( $ENV{HOME}, '.cpanpackager' );
}

1;

__END__