Blurgh Example

blurgh.p6

use Blurgh;

class Blog::Post does Blurgh::Route[:('post')] {
  state %posts;
  state $next-post-id = 1;

  # Matches "GET /post/123" (only if integer exists in %posts)
  multi method get(Int:D $id where { %posts{$_}:exists }) {
    $.render(:text(%posts{$id}));
  }

  # Matches POST /post/new
  multi method post('new') {
    my $id = $next-post-id++;
    %posts{$id} = $.request.data.decode;
    $.render(:text("post $id created"));
  }
}

run(Blog::Post);

---

# curl -d 'Lustiger Post.' localhost:8118/post/new
post 1 created
# curl localhost:8118/post/1
Lustiger Post
# curl localhost:8118/post/2
Not Found