view release on metacpan or  search on metacpan

t/check/http.t  view on Meta::CPAN

my %match = ();

sub result_check {
    my ( $type, $check, $host, $got_body, $headers ) = @_;

    my $exp_body = $goodbody;
    my %results  = (
          'cache-control' => 'max-age=0',
          'connection'    => 'Keep-Alive',
          'content-type'  => 'text/html',
          'HTTPVersion'   => '1.0',
    );

    if ( $type eq 'fail' ) {
        $exp_body = $badbody;
        %results = (
            %results,
            'content-length' => 4,
            'Reason'         => 'failed',
            'Status'         => 400,