diff options
author | franck cuny <franck@lumberjaph.net> | 2010-02-12 11:37:06 +0100 |
---|---|---|
committer | franck cuny <franck@lumberjaph.net> | 2010-02-12 11:37:06 +0100 |
commit | 1cef6de2844dbba45a34609e772284b9a87b86fe (patch) | |
tree | 1a12d5a45760058fabb748a59319d6ea5362b516 /lib/githubexplorer/Network.pm | |
parent | Merge branch 'master' of git@lj:github-explorer (diff) | |
download | github-explorer-1cef6de2844dbba45a34609e772284b9a87b86fe.tar.gz |
wip
Diffstat (limited to '')
-rw-r--r-- | lib/githubexplorer/Network.pm | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lib/githubexplorer/Network.pm b/lib/githubexplorer/Network.pm index eb6253f..dde08a4 100644 --- a/lib/githubexplorer/Network.pm +++ b/lib/githubexplorer/Network.pm @@ -7,6 +7,11 @@ use YAML::Syck; sub fetch_network { my ( $self, $repos ) = @_; + # check fork + my $check = $self->schema->resultset('Fork')->search({repos=> + $repos->id}); + return if $check->count > 0; + say ">> start on ".$repos->name; my $api_repos = Net::GitHub::V2::Repositories->new( owner => $repos->id_profile->login, @@ -16,6 +21,10 @@ sub fetch_network { ); my $edges = $api_repos->network(); + if (ref $edges ne 'ARRAY') { + sleep 60; + return; + } sleep(1); foreach my $edge (@$edges) { next if $edge->{owner} eq $repos->id_profile->login; |