File Coverage

blib/lib/App/CPANRepo.pm

Criterion	Covered	Total	%
statement	20	42	47.6
branch	0	6	0.0
condition	0	2	0.0
subroutine	7	10	70.0
pod	1	3	33.3
total	28	63	44.4

package App::CPANRepo;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.02";

use MetaCPAN::Client 1.005000;
use Getopt::Long ();
use Pod::Usage ();

use Class::Accessor::Lite::Lazy (
    new => 1,
    ro_lazy => {
        _client => sub { MetaCPAN::Client->new },
    },
);

sub resolve_repo {
    my ($self, $name) = @_;

    my $repo;
    eval {
        my $module = $self->_client->module($name);
        my $release = $self->_client->release($module->distribution);
        if ($release->resources->{repository}) {
            $repo = $release->resources->{repository}{url};
            $repo =~ s{^git://github\.com}{https://github.com};
        }
    };

    return $repo;
}

sub run {
    my ($class, @argv) = @_;

    my ($opt, $argv) = $class->parse_options(@argv);

    my $self = $class->new(%$opt);
    for my $module (@$argv) {
        print( ($self->resolve_repo($module) || '') . "\n");
    }
}

sub parse_options {
    my ($class, @argv) = @_;

    my $parser = Getopt::Long::Parser->new(
        config => [qw/posix_default no_ignore_case bundling pass_through auto_help/],
    );

    local @ARGV = @argv;
    $parser->getoptions(\my %opt) or Pod::Usage::pod2usage(1);
    @argv = @ARGV;

    Pod::Usage::pod2usage(1) unless @argv;
    (\%opt, \@argv);
}

1;
__END__