Changeset 13397 for lang/perl/HTTP-Engine/branches/lazy_request/lib/HTTP/Engine/RequestBuilder.pm

Timestamp:

06/07/08 19:57:42 (5 years ago)

Author:

nothingmuch

Message:

request_builder handlers _build_hostname

Files:

• lang/perl/HTTP-Engine/branches/lazy_request/lib/HTTP/Engine/RequestBuilder.pm (modified) (2 diffs)

lang/perl/HTTP-Engine/branches/lazy_request/lib/HTTP/Engine/RequestBuilder.pm

@@ -2 +2 @@
 use Moose;
 use CGI::Simple::Cookie;
+
+use IO::Socket qw[AF_INET inet_aton];
 
 # tempolary file path for upload file.
@@ -82 +84 @@
         grep { /^(?:HTTP|CONTENT|COOKIE)/i } keys %ENV 
     });
+}
+
+sub _build_hostname {
+    my ( $self, $req ) = @_;
+    $ENV{REMOTE_HOST} || gethostbyaddr( inet_aton( $req->address ), AF_INET );
 }