Make a StripTrailingSlash Middleware

[librasteve]

something like this

https://www.irccloud.com/pastebin/kCcHlKfw

use v6;
use Cro::HTTP::Server;
use Cro::HTTP::Router;
use Cro::HTTP::Response;
use Cro::HTTP::Middleware::Request;

---------------------------

Middleware: strip trailing slash

---------------------------

class StripTrailingSlash does Cro::HTTP::Middleware::Request {
method process($request) {
my $path = $request.target;

    # Ignore root "/"
    if $path ne '/' && $path.ends-with('/') {
        my $new-path = $path.substr(0, *-1);

        return Cro::HTTP::Response.new(
            status  => 308,
            headers => [ Location => $new-path ]
        );
    }

    $request;
}

}

---------------------------

Handlers (keep logic separate)

---------------------------

sub list-users() {
content 'application/json', '[{"id":1,"name":"Alice"}]'
}

sub get-user($id) {
content 'application/json', qq|{"id": $id, "name": "User$id"}|
}

---------------------------

Router

---------------------------

sub routes() is export {
route {
# /users
get -> 'users' {
list-users()
}

    # /users/123
    get -> 'users', Int $id {
        get-user($id)
    }

    # Example root
    get -> {
        content 'text/plain', 'Welcome to Cro!'
    }
}

}

---------------------------

Server setup

---------------------------

my $app = routes();

my Cro::HTTP::Server $server .= new:
:host<127.0.0.1>,
:port(3000),
:application($app),
:before(StripTrailingSlash.new); # attach middleware

$server.start;

say "Server running at http://127.0.0.1:3000/";
react whenever signal(SIGINT) {
$server.stop;
exit;
}

[librasteve]

don't forget to test whether query strings are preserved
or that query strings don't break on things like /users?cursor=42
(or /users/?cursor=42)