From 552357b2c3fe58304d4e46e21031998b5d3c98e1 Mon Sep 17 00:00:00 2001 From: franck cuny Date: Fri, 12 Feb 2010 12:00:07 +0100 Subject: wip --- lib/githubexplorer.pm | 10 ++++++++++ 1 file changed, 10 insertions(+) (limited to 'lib') diff --git a/lib/githubexplorer.pm b/lib/githubexplorer.pm index 4fc5aa5..9e5e134 100644 --- a/lib/githubexplorer.pm +++ b/lib/githubexplorer.pm @@ -82,4 +82,14 @@ sub graph_repo { } } +sub extract_seed { + my $self = shift; + $self->_connect unless $self->has_schema; + my $profiles = $self->schema->resultset('Profiles') + ->search( { blog => { '!=' => undef }, blog => { '!=' => '' } } ); + while ( my $pr = $profiles->next ) { + } +} + + 1; -- cgit 1.4.1