1use strict; 2use warnings; 3 4our %args = ( 5 client => { 6 func => sub { 7 my $self = shift; 8 print <<'EOF'; 9GET http://www.foo.com/1 HTTP/1.1 10 11EOF 12 http_response($self, 1); 13 }, 14 http_vers => ["1.1"], 15 nocheck => 1, 16 method => "GET", 17 }, 18 relayd => { 19 protocol => [ "http", 20 "match request header log Host", 21 "match request path log \"*\"", 22 ], 23 loggrep => { 24 qr/, malformed header$/ => 0, 25 qr/\[http:\/\/www.foo.com\/1\] GET/ => 1, 26 }, 27 }, 28 server => { 29 func => \&http_server, 30 nocheck => 1, 31 } 32); 33 341; 35