#!perl

# ABSTRACT: Open a browser window with the URL of a CPAN module's repository
# PODNAME: cpan-repo

use strict;
use warnings;

use Browser::Open qw( open_browser );
use Git::Helpers::CPAN ();
use Try::Tiny qw( catch try );

my $search = shift @ARGV;
die "usage: cpan-gh [module or distribution name]" unless $search;

my $helper = Git::Helpers::CPAN->new( name => $search );

my $repo = $helper->repository;
my $url = $repo->{web} || $repo->{url};

unless ($url) {
    print q{Couldn't find repo URL for } . $helper->release_name;
    exit;
}

open_browser($url);

__END__
=pod

=head1 SYNOPSIS

    # search by module name
    cpan-repo Git::Helpers

    # search by release name
    cpan-repo Git-Helpers

=cut
