File Coverage

blib/lib/CPAN/Packager/ModuleNameResolver.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	10	0.0
condition			n/a
subroutine	4	7	57.1
pod	0	2	0.0
total	16	44	36.3

package CPAN::Packager::ModuleNameResolver;
use Mouse;
use LWP::UserAgent;
use CPAN::Packager::ListUtil qw(any);
use Log::Log4perl qw(:easy);

has 'ua' => (
    is      => 'rw',
    default => sub {
        my $ua = LWP::UserAgent->new;
        $ua->env_proxy;
        $ua;
    }
);

sub resolve {
    my ( $self, $module  ) = @_;
    return $module if any { $module eq $_} ('perl', 'PerlInterp');

    my $res = $self->get_or_retry(
        "http://search.cpan.org/search?query=$module&mode=module");
    return unless $res->is_success;
    my ($resolved_module)
        = $res->content =~ m{};

    return unless $resolved_module;
    $resolved_module =~ s/-/::/g unless $resolved_module eq 'libwww-perl';
    DEBUG( ">>> resolved module name is ${resolved_module} and original module name is ${module}"
    );
    return $resolved_module;
}

sub get_or_retry {
    my ( $self, $url ) = @_;
    my $res = $self->ua->get($url);
    $res->is_success ? $res : $self->ua->get($url);
}

__PACKAGE__->meta->make_immutable;
1;

__END__