diff options
Diffstat (limited to 'lib/githubexplorer.pm')
-rw-r--r-- | lib/githubexplorer.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/lib/githubexplorer.pm b/lib/githubexplorer.pm index fdd609a..321d6b1 100644 --- a/lib/githubexplorer.pm +++ b/lib/githubexplorer.pm @@ -4,6 +4,7 @@ use lib ('/home/franck/code/git/net-github/lib'); use YAML::Syck; use Moose; use githubexplorer::Schema; +use githubexplorer::Gexf; with qw/githubexplorer::Profile githubexplorer::Repositorie/; @@ -40,7 +41,7 @@ sub harvest_profiles { } sub harvest_repo { - my ($self) = @_; + my $self = shift; $self->_connect unless $self->has_schema; my $profiles = $self->schema->resultset('Profiles')->search(); while (my $p = $profiles->next) { @@ -48,4 +49,11 @@ sub harvest_repo { } } +sub gen_graph { + my $self = shift; + $self->_connect unless $self->has_schema; + my $graph = githubexplorer::Gexf->new(schema => $self->schema); + $graph->profiles; +} + 1; |