Cleanup testbed
diff --git a/lib/Korap.pm b/lib/Korap.pm
index 5d2cde0..fddb9b4 100644
--- a/lib/Korap.pm
+++ b/lib/Korap.pm
@@ -1,6 +1,8 @@
package Korap;
use Mojo::Base 'Mojolicious';
+our $VERSION = '0.01';
+
# This method will run once at server start
sub startup {
my $self = shift;
@@ -27,8 +29,7 @@
}
);
-
- # Router
+ # Routes
my $r = $self->routes;
$r->add_shortcut(
@@ -37,12 +38,19 @@
}
);
-# , resource => [qw/collection corpus/]
+ $r->get('/')->to(
+ cb => sub {
+ my $c = shift;
+ $c->render('text' => 'Go to '. $c->link_to('search', '/collection/search'));
+ }
+ );
+
+ # resource => [qw/collection corpus/]
$r->get('/:resource')->search;
$r->get('/:resource/:cid', resource => [qw/collection corpus/])->search;
$r->get('/:resource/')->search;
-
# /matchInfo?id=...&f=&l=&spans
-}
+};
+
1;