view release on metacpan or  search on metacpan

t/response.t  view on Meta::CPAN

  };
}

# args via HTTP::Message
test_http_message sub {
  my $msg = new_ok('HTTP::Response', [200, 'Fine', [
    X_Dog => 'Fluffy',
    X_Dog => 'Fido',
  ], "bark!"]);

  # don't throw warnings if protocol was undefined
  {
    my @w;
    local $SIG{__WARN__} = sub { push @w, [@_] };
    is new_ok($mod, [$msg])->pseudo_headers->{HTTPVersion}, undef,
      'cannot set HTTPVersion without a protocol';
    is_deeply \@w, [], 'no warnings';
  }

  $msg->protocol('HTTP/0.1');