4 use HTTP::Request::Common qw(GET POST);
7 package t::Web::Simple::ResponseFilter;
15 [ 'Content-Type' => 'text/html' ],
21 bless {name=>'john'}, 'CrazyHotWildWet';
26 ok my $app = t::Web::Simple::ResponseFilter->new->to_psgi_app,
31 my $res = $cb->(GET "/index.html");
32 like $res->content, qr/john/,
33 'Got Expected Content';