view release on metacpan or  search on metacpan

t/request.t  view on Meta::CPAN

  is $req->body, 'anna begins', "body $suffix";

  is $msg->header('content-length'), 11,
    'message object has content length header';

  is_deeply
    $req->headers,
    {
      'x-rain'     => 'king',
      'user-agent' => 'perfect,round here',
      'content-type' => 'text/plain',
      # don't pass 'content-length' to AEH
    },
    "converted headers $suffix";

  is $req->cb, $cb, 'cb passed in second hashref';
  require HTTP::Response;
  is $req->respond_with(HTTP::Response->new(200, 'OK', [], 'crows')),
    'counting crows', 'pass HTTP::Response to respond_with()';
};