{
use Web::Simple 'PostTest';
package PostTest;
- dispatch [
- sub (%foo=&bar~) {
+ dispatch {
+ sub (%:foo=&:bar~) {
$_[1]->{bar} ||= 'EMPTY';
[ 200,
[ "Content-type" => "text/plain" ],
[ join(' ',@{$_[1]}{qw(foo bar)}) ]
]
},
- ]
+ }
}
use HTTP::Request::Common qw(GET POST);