Acme-YAPC-Asia-2012-LTthon-Hakushu

 view release on metacpan or  search on metacpan

.shipit  view on Meta::CPAN

steps = FindVersion, ChangeAllVersions, CheckChangeLog, DistTest, Commit, Tag, MakeDist, UploadCPAN

git.tagpattern = %v
git.push_to = origin

CheckChangeLog.files = Changes

Changes  view on Meta::CPAN

Revision history for Perl extension Acme::YAPC::Asia::2012::LTthon::Hakushu

0.03 2012-09-28 12:37:50
    - fix prerequisites modules

0.02 2012-09-28 12:36:13
    - add hakushu() function

0.01 2012-09-28 12:25:49
    - original version; created by dim
      at Fri Sep 28 12:18:42 2012.

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;



( run in 1.025 second using v1.01-cache-2.11-cpan-1c8d708658b )