File Coverage

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

Criterion	Covered	Total	%
statement	28	28	100.0
branch	5	8	62.5
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	40	43	93.0

package CPAN::Access::AdHoc::Default::CPAN::CPANPLUS;

use 5.008;

use strict;
use warnings;

use CPAN::Access::AdHoc::Util qw{ __load };

our $VERSION = '0.000_18';

my $configured = eval {
    __load( 'CPANPLUS::Configure' );
    1;
};

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

    $configured
	or return;

    my $cpp = CPANPLUS::Configure->new();
    my $hosts = $cpp->get_conf( 'hosts' )
	or return;
    @{ $hosts }
	or return;

    foreach my $host ( @{ $hosts } ) {
	'file' eq $host->{scheme}
	    and return _make_url( $host );
    }

    return _make_url( $hosts->[0] );
}

sub _make_url {
    my @arg = @_;
    my @rslt;
    foreach my $host ( @arg ) {
	( my $path = $host->{path} ) =~ s{ \A (?! / ) }{/}smx;
	push @rslt, sprintf '%s://%s%s', $host->{scheme}, $host->{host}, $path;
    }
    return @rslt;
}

1;

__END__