throw error on failed new in run_if_script

[catagits/Web-Simple.git] / t / response-filter.t

diff --git a/t/response-filter.t b/t/response-filter.t
index c03ccd3..1cac671 100644 (file)
--- a/t/response-filter.t
+++ b/t/response-filter.t
@@ -1,6 +1,4 @@
-use strict;
-use warnings FATAL => 'all';
-
+use strictures 1;
 use Test::More;  
 use Plack::Test;
 use HTTP::Request::Common qw(GET POST);
@@ -10,14 +8,14 @@ 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';