Commit | Line | Data |
795c4698 |
1 | use Web::Simple 'DispatchEx'; |
2 | |
3 | package DispatchEx; |
4 | |
5 | dispatch [ |
6 | filter_response { |
7 | [ 200, [ 'Content-type' => 'text/plain' ], $_[1] ]; |
8 | }, |
9 | subdispatch sub (.html) { |
10 | [ |
11 | filter_response { [ @{$_[1]}, '.html' ] }, |
12 | sub (/foo) { [ '/foo' ] }, |
13 | ] |
14 | }, |
15 | subdispatch sub (/domain/*/...) { |
16 | return unless (my $domain_id = $_[1]) =~ /^\d+$/; |
17 | [ |
18 | sub (/) { |
19 | [ "Domain ${domain_id}" ] |
20 | }, |
21 | sub (/user/*) { |
22 | return unless (my $user_id = $_[1]) =~ /^\d+$/; |
23 | [ "Domain ${domain_id} user ${user_id}" ] |
24 | } |
25 | ] |
26 | } |
27 | ]; |
28 | |
29 | DispatchEx->run_if_script; |