t/lib/Test-Session-Broken/lib/Test/LDAP/Controller/Root.pm

   1 package Test::LDAP::Controller::Root;
   2 use Moose;
   3 use namespace::autoclean;
   4
   5 BEGIN { extends 'Catalyst::Controller' }
   6
   7 __PACKAGE__->config(namespace => '');
   8
   9 sub index :Path :Args(0) {
  10     my ( $self, $c ) = @_;
  11
  12     $c->res->body("Index");
  13 }
  14
  15 sub default :Path {
  16     my ( $self, $c ) = @_;
  17
  18     $c->res->body("Not found");
  19     $c->res->status(404);
  20 }
  21
  22 sub end {}
  23
  24 __PACKAGE__->meta->make_immutable;
  25
  26 1;