Narusegawa, a micro web framework in Naru

example.naru

import narusegawa

app := narusegawa Application()

app get("/", fun
  return "Hello world!"
end)

narusegawa.naru

use naru

Application(var routes = []) := class
    ready(method, path, function) := fun
        pattern := PathPattern(path)
        route := Route(method, pattern, function)
        self routes append(route)
    end

    get(path, function) := fun
        self ready(:get, path, function)
    end

    post(path, function) := fun
        self ready(:post, path, function)
    end

    put(path, function) := fun
        self ready(:put, path, function)
    end

    delete(path, function) := fun
        self ready(:delete, path, function)
    end
end

Route(method, pattern, function) := class <- (method, pattern, function)
    method := *
    method get := fun -> self #0

    pattern := *
    pattern get := fun -> self #1

    function := *
    function get := fun -> self #2
end