-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,