view release on metacpan or  search on metacpan

eg/apps/DeepNamespace/lib/DeepNamespace/Web/Admin/Dispatcher.pm  view on Meta::CPAN

package DeepNamespace::Web::Admin::Dispatcher;
use strict;

sub dispatch {
    my ($class, $c) = @_;
    if ($c->request->path_info eq '/') {
        return DeepNamespace::Web::Admin::C::Root->index($c);
    } else {
        return $c->res_404();
    }
}

1;