2 use warnings FATAL => 'all';
10 around dispatch_request => sub {
11 my ($orig, $self) = @_;
16 [ "Content-type" => "text/plain" ],
27 sub dispatch_request {
30 [ "Content-type" => "text/plain" ],
36 [ "Content-type" => "text/plain" ],
43 use HTTP::Request::Common qw(GET POST);
45 my $app = FooBar->new;
46 sub run_request { $app->run_test_request(@_); }
48 for my $word (qw/ foo bar baz /) {
49 my $get = run_request(GET "http://localhost/${word}");
50 is($get->content, $word, "Dispatch $word");