projects
/
catagits/Web-Simple.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
expand ParamParser comment so nobody breaks it again
[catagits/Web-Simple.git]
/
t
/
underscore.t
1
use Web::Simple 'TestApp';
2
use Test::More;
3
4
sub TestApp::dispatch_request {
5
sub (GET + ?*) {
6
[ 200, [ 'Content-type' => 'text/plain' ], [ $_{foo} ] ]
7
}
8
}
9
10
my $res = TestApp->new->run_test_request(GET => '/?foo=bar');
11
12
is($res->content, 'bar', '%_ set ok');
13
14
done_testing;