lib/Debbugs/Mojo.pm

   1 package Debbugs::Mojo;
   2
   3 use Mojo::Base 'Mojolicious';
   4
   5 sub startup {
   6   my $self = shift;
   7
   8   $self->plugin('Debbugs::Mojo::Plugin::DBI');
   9   my $r = $self->routes;
  10   $r->namespaces(['Debbugs::Mojo::Controller']);
  11   $r->add_type(bug => qr/\d+/);
  12   $r->add_type(package => qr/[a-z0-9][a-z0-9\.+-]+/);
  13   $r->get('/<bug:bug>')->to('Bug#show')->name('show_bug');
  14   $r->get('/bug/<bug:bug>')->to('Bug#show')->name('show_bug');
  15   $r->get('/<package:package>')->to('Package#show')->name('show_package');
  16   $r->get('/package/<package:package>')->to('Package#show')->name('show_package');
  17   $r->get('/' => sub {
  18               my $c = shift;
  19               $c->render(text => 'Mojolicious rocks');
  20           });
  21 }
  22
  23 1;
  24