2 use warnings FATAL => 'all';
4 eval { require HTTP::Request::AsCGI }
6 : (skip_all => 'No HTTP::Request::AsCGI')
10 use HTTP::Request::Common qw(GET POST);
12 require 'examples/bloggery/bloggery.cgi';
14 my $app = Bloggery->new(
15 { config => { posts_dir => 'examples/bloggery/posts' } }
20 my $c = HTTP::Request::AsCGI->new($request)->setup;
28 warn run_request(GET 'http://localhost/index.html')->as_string;
30 warn run_request(GET 'http://localhost/')->as_string;
32 warn run_request(GET 'http://localhost/One-Post.html')->as_string;
34 warn run_request(GET 'http://localhost/Not-There.html')->as_string;
36 warn run_request(POST 'http://localhost/One-Post.html')->as_string;