diff options
| author | franck cuny <franck@lumberjaph.net> | 2010-02-10 11:08:21 +0100 |
|---|---|---|
| committer | franck cuny <franck@lumberjaph.net> | 2010-02-10 11:08:21 +0100 |
| commit | 68cd6b70d8ce737ffa12bab2be4f6eaf6f1599a4 (patch) | |
| tree | 2208dfd26b3837a098ba7f601069917d8d81951c /lib/githubexplorer.pm | |
| parent | prepare repos (diff) | |
| parent | update to create graph (diff) | |
| download | github-explorer-68cd6b70d8ce737ffa12bab2be4f6eaf6f1599a4.tar.gz | |
fix
Diffstat (limited to 'lib/githubexplorer.pm')
| -rw-r--r-- | lib/githubexplorer.pm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/lib/githubexplorer.pm b/lib/githubexplorer.pm index 67e9e25..4fc5aa5 100644 --- a/lib/githubexplorer.pm +++ b/lib/githubexplorer.pm @@ -6,7 +6,8 @@ use githubexplorer::Schema; use githubexplorer::Gexf; use IO::All; -with qw/githubexplorer::Profile githubexplorer::Repository/; +with qw/githubexplorer::Profile githubexplorer::Repository +githubexplorer::Network/; has seed => ( isa => 'ArrayRef', @@ -72,4 +73,13 @@ sub gen_graph { $xml > io('crawl.gexf'); } +sub graph_repo { + my $self = shift; + $self->_connect unless $self->has_schema; + my $repos = $self->schema->resultset('Repositories')->search({fork => 0}); + while ( my $r = $repos->next ) { + $self->fetch_network($r); + } +} + 1; |