The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DeepNamespace::Web::User::Dispatcher;
use strict;

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

1;