1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
use Dancer ':tests';
use Test::More;
use Dancer::Test;
plan tests => 4;
get '/foo/**' => sub { show_splat() };
response_content_is [ GET => '/foo/a/b/c' ] => '(a,b,c)';
get '/bar/*/**' => sub { show_splat() };
response_content_is [ GET => '/bar/a/b/c' ] => 'a:(b,c)';
get '/alpha/**/gamma' => sub { show_splat() };
response_content_is [ GET => '/alpha/beta/delta/gamma' ] => '(beta,delta)';
response_content_is [ GET => '/alpha/beta/gamma' ] => '(beta)';
sub show_splat {
return join ':', map { ref $_ ? "(" . join( ',', @$_ ) . ")": $_ } splat;
}
|
