-use strict;
-use warnings FATAL => 'all';
-
+use strictures 1;
use Test::More;
use Plack::Test;
use HTTP::Request::Common qw(GET POST);
use Web::Simple;
sub dispatch_request {
my $self = shift;
- sub (.html) {
+ sub (.html) {
response_filter {
return [
200,
[ 'Content-Type' => 'text/html' ],
[ shift->{name} ],
];
- };
+ }
},
sub (GET + /index) {
bless {name=>'john'}, 'CrazyHotWildWet';