diff options
Diffstat (limited to 'lib/StarGit.pm')
| -rw-r--r-- | lib/StarGit.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/lib/StarGit.pm b/lib/StarGit.pm index 72933da..6483a73 100644 --- a/lib/StarGit.pm +++ b/lib/StarGit.pm @@ -2,6 +2,7 @@ package StarGit; use Dancer ':syntax'; use StarGit::Graph; +use Cache::Memcached; # don't use it yet our $VERSION = '0.1'; @@ -15,12 +16,17 @@ get '/graph/local/:name' => sub { my $name = params->{'name'}; my $graph = StarGit::Graph->new( name => $name ); + + return send_error( "user " . $name . " doesn't exists", 404 ) + unless $graph->exists($name); + $graph->neighbors( $name, 1 ); $graph->remove_leaves(); return _finalize($graph); }; +# XXX do we already use this one ? get '/graph/query' => sub { my $language = params->{language}; |
