This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 0.12 in repository libdist-zilla-plugin-githubmeta-perl.
commit bb4c0dcbf6734a150b8a0444a739efd08f109faa Author: Ricardo Signes <r...@cpan.org> Date: Mon May 2 18:53:55 2011 -0400 rework how we figure out urls; add user/repo args --- lib/Dist/Zilla/Plugin/GithubMeta.pm | 55 ++++++++++++++++++++++++++++++++----- 1 file changed, 48 insertions(+), 7 deletions(-) diff --git a/lib/Dist/Zilla/Plugin/GithubMeta.pm b/lib/Dist/Zilla/Plugin/GithubMeta.pm index 5e628ff..774a699 100644 --- a/lib/Dist/Zilla/Plugin/GithubMeta.pm +++ b/lib/Dist/Zilla/Plugin/GithubMeta.pm @@ -25,8 +25,29 @@ has 'remote' => ( default => sub { [ 'origin' ] }, ); -sub metadata { - my $self = shift; +has 'issues' => ( + is => 'ro', + isa => 'Bool', + default => 0, +); + +has user => ( + is => 'rw', + isa => 'Str', + predicate => '_has_user', +); + +has repo => ( + is => 'rw', + isa => 'Str', + predicate => '_has_repo', +); + +sub _acquire_repo_info { + my ($self) = @_; + + return if $self->_has_user and $self->_has_repo; + return unless _under_git(); return unless can_run('git'); @@ -39,19 +60,39 @@ sub metadata { return unless $git_url; - $git_url =~ s![\w\-]+\@([^:]+):!http://$1/!; - $git_url =~ s!\.git$!!; + my ($user, $repo) = $git_url =~ m{ + github\.com # the domain + / ([^/]+) # the username + / ([^/]+?) (?:\.git)? # the repo name + }ix; + + return unless defined $user and defined $repo; + + $self->_user($user); + $self->_repo($repo); +} + +sub metadata { + my $self = shift; + + $self->_acquire_repo_info; + + return unless $self->_has_user and $self->_has_repo; + + my $gh_url = sprintf 'http://github.com/%s/%s', $self->user, $self->repo; + my $bug_url = "$gh_url/issues"; - my $home_url = $self->homepage ? $self->homepage->as_string : $git_url; + my $home_url = $self->homepage ? $self->homepage->as_string : $gh_url; return { resources => { homepage => $home_url, repository => { type => 'git', - url => $git_url, - web => $git_url, + url => $gh_url, + web => $gh_url, }, + ($self->issues ? { bugtracker => { web => $bug_url } } : ()), } }; } -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-githubmeta-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits