view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

Revision history for Perl extension Acme::FizzBuzz

0.03    2011-01-28T03:10:49+09:00
	- on the modern way
	- too smart

0.02    2007-06-10T19:07:25+09:00
        - work with golf.

0.01    2007-05-10T04:26:05+09:00
        - original version

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

use base qw(Module::Install::Base);
use vars qw($VERSION);

$VERSION = '0.10';

sub githubmeta {
  my $self = shift;
  return unless $Module::Install::AUTHOR;
  return unless _under_git();
  return unless $self->can_run('git');
  return unless my ($git_url) = `git remote show -n origin` =~ /URL: (.*)$/m;
  return unless $git_url =~ /github\.com/; # Not a Github repository
  my $http_url = $git_url;
  $git_url =~ s![\w\-]+\@([^:]+):!git://$1/!;
  $http_url =~ s![\w\-]+\@([^:]+):!http://$1/!;
  $http_url =~ s!\.git$!/tree!;
  $self->repository( $git_url );
  $self->homepage( $http_url ) unless $self->homepage();
  return 1;
}