$t->setColWidth( 'Key', 37, 1 );
$t->setColWidth( 'Value', 36, 1 );
for my $key ( keys %{ $c->req->params } ) {
- my $value = $c->req->params->{$key} || '';
+ my $param = $c->req->params->{$key};
+ my $value = defined($param) ? $param : '';
$t->addRow( $key, $value );
}
$c->log->debug( 'Parameters are', $t->draw );
$request->uri->scheme('http'); # Force URI::http
$request->uri->host( $request->header('Host') || $base->host );
$request->uri->port( $base->port );
+
+ my $hostname = gethostbyaddr( $connection->peeraddr, AF_INET );
my $http = Catalyst::Engine::Test::HTTP->new(
address => $connection->peerhost,
- hostname => gethostbyaddr( $connection->peeraddr, AF_INET ),
+ hostname => $hostname || $connection->peerhost,
request => $request,
response => HTTP::Response->new
);