File Coverage

blib/lib/GitMeta/Github.pm

Criterion	Covered	Total	%
statement	12	21	57.1
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	27	59.2

###########################################
package GitMeta::Github;
###########################################
# 2010, Mike Schilli
###########################################
use strict;
use warnings;
use base qw(GitMeta);
use Pithub;

###########################################
sub expand {
###########################################
  my($self) = @_;

  $self->param_check("user");

  my $user  = $self->{user};
  my @repos = ();

  my $ph = Pithub->new( auto_pagination => 1 );
  my $result = $ph->repos->list( user => $user );

  while ( my $repo = $result->next ) {
      push @repos,
        "git\@github.com:$user/$repo->{name}.git";
  }

  return @repos;
}

1;

__END__