view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

0.04    Sat Dec 17 17:22:45 2011 2011
        - append algorithm check for Crypt::OpenSSL::RSA.

0.03    Sun Dec 04 12:33:39 2011 2011
        - remove warning in test.

0.02    Thu Dec 01 16:24:50 2011
        - append dependency to Test::More::done_testing

0.01    Thu Nov 24 00:35:31 2011
        - original version

inc/Module/Install/Repository.pm  view on Meta::CPAN

        $self->repository($repo);
    } else {
        warn "Cannot determine repository URL\n";
    }
}

sub _find_repo {
    my ($execute) = @_;

    if (-e ".git") {
        # TODO support remote besides 'origin'?
        if ($execute->('git remote show -n origin') =~ /URL: (.*)$/m) {
            # XXX Make it public clone URL, but this only works with github
            my $git_url = $1;
            $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!;
            return $git_url;
        } elsif ($execute->('git svn info') =~ /URL: (.*)$/m) {
            return $1;
        }
    } elsif (-e ".svn") {
        if (`svn info` =~ /URL: (.*)$/m) {
            return $1;