diff options
Diffstat (limited to 'lib/githubexplorer/Repositorie.pm')
-rw-r--r-- | lib/githubexplorer/Repositorie.pm | 46 |
1 files changed, 23 insertions, 23 deletions
diff --git a/lib/githubexplorer/Repositorie.pm b/lib/githubexplorer/Repositorie.pm index 6d777b8..bfb8076 100644 --- a/lib/githubexplorer/Repositorie.pm +++ b/lib/githubexplorer/Repositorie.pm @@ -3,31 +3,31 @@ use 5.010; use Moose::Role; use Net::GitHub::V2::Repositories; -sub fetch_repo { - my ( $self, $profile, $repo_name ) = @_; +sub fetch_repositories { + my ( $self, $profile, $repo_list ) = @_; + + foreach my $repo (@$repo_list) { + next if $self->_repo_exists( $profile, $repo->{name} ); + say "-> check " . $profile->login . "'s ".$repo->{name}; + # my $github = Net::GitHub::V2::Repositories->new( + # owner => $profile->login, + # repo => $repo->{name}, + # login => $self->api_login, + # token => $self->api_token, + # ); - return if $self->_repo_exists( $profile, $repo_name ); - - say "-> check " . $profile->login . "'s $repo_name"; - sleep(1); - my $github = Net::GitHub::V2::Repositories->new( - owner => $profile->login, - repo => $repo_name, - login => $self->api_login, - token => $self->api_token, - ); - sleep(1); - my $langs = $github->languages(); - sleep(1); - return unless grep {/perl/i} keys %$langs; - my $repo_desc = $github->show(); - sleep(1); - $profile->perl_total_bytes( $profile->perl_total_bytes + $langs->{Perl} ); - $self->schema->txn_do( sub { $profile->update } ); - $self->_create_repo( $profile, $repo_desc ); - sleep(1); + # my $langs = $github->languages(); + # sleep(1); + # return unless grep {/perl/i} keys %$langs; + # my $repo_desc = $github->show(); + # sleep(1); + # $profile->perl_total_bytes( $profile->perl_total_bytes + $langs->{Perl} ); + # $self->schema->txn_do( sub { $profile->update } ); + $self->_create_repo( $profile, $repo ); + } } + sub _repo_exists { my ( $self, $profile, $repo_name ) = @_; return @@ -44,7 +44,7 @@ sub _create_repo { my $repo_insert = { id_profile => $profile->id, map { $_ => $repo_desc->{$_} } - (qw/description name homepage url watchers forks/) + (qw/description name homepage url watchers forks fork/) }; $self->schema->txn_do( sub { |