add first start of mojolicious app (doesn't do much yet)

[debbugs.git] / lib / Debbugs / Mojo.pm

diff --git a/lib/Debbugs/Mojo.pm b/lib/Debbugs/Mojo.pm
new file mode 100644 (file)
index 0000000..779b833
--- /dev/null
+++ b/lib/Debbugs/Mojo.pm
@@ -0,0 +1,24 @@
+package Debbugs::Mojo;
+
+use Mojo::Base 'Mojolicious';
+
+sub startup {
+  my $self = shift;
+
+  $self->plugin('Debbugs::Mojo::Plugin::DBI');
+  my $r = $self->routes;
+  $r->namespaces(['Debbugs::Mojo::Controller']);
+  $r->add_type(bug => qr/\d+/);
+  $r->add_type(package => qr/[a-z0-9][a-z0-9\.+-]+/);
+  $r->get('/<bug:bug>')->to('Bug#show')->name('show_bug');
+  $r->get('/bug/<bug:bug>')->to('Bug#show')->name('show_bug');
+  $r->get('/<package:package>')->to('Package#show')->name('show_package');
+  $r->get('/package/<package:package>')->to('Package#show')->name('show_package');
+  $r->get('/' => sub {
+             my $c = shift;
+             $c->render(text => 'Mojolicious rocks');
+         });
+}
+
+1;
+