File Coverage

blib/lib/CPAN/Access/AdHoc/Default/CPAN/CPAN/Mini.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	8	50.0
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	38	42	90.4

package CPAN::Access::AdHoc::Default::CPAN::CPAN::Mini;

use 5.008;

use strict;
use warnings;

use CPAN::Access::AdHoc::Util qw{ __load };
use Cwd ();
use URI::file;

our $VERSION = '0.000_18';

my $configured = eval {
    __load( 'CPAN::Mini' );
    1;
};

sub get_default {
    my ( $class ) = @_;

    $configured
	or return;

    my %config = CPAN::Mini->read_config( {} )
	or return;
    defined( my $local = $config{local} )
	or return;
    $local = Cwd::abs_path( $local );
    -d $local
	or return;
    my $uri = URI::file->new_abs( $local );
    return $uri;
}

1;

__END__