start to gen. gexf

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;