Changeset 11800

Timestamp:

05/18/08 00:26:28 (5 years ago)

Author:

yappo

Message:

add host attribute on ServerSimple?

Files:

• lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ServerSimple.pm (modified) (3 diffs)

lang/perl/HTTP-Engine/trunk/lib/HTTP/Engine/Interface/ServerSimple.pm

@@ -5 +5 @@
 use HTTP::Server::Simple 0.33;
 use HTTP::Server::Simple::CGI;
+
+has host => (
+    is      => 'rw',
+    isa     => 'Str',
+    default => '127.0.0.1',
+);
 
 has port => (
@@ -15 +21 @@
     my ($self, ) = @_;
 
-    Moose::Meta::Class
+    my $server = Moose::Meta::Class
         ->create_anon_class(
             superclasses => ['HTTP::Server::Simple::CGI'],
@@ -27 +33 @@
         )->new(
             $self->port
-        )->run;
+        );
+    $server->host($self->host);
+    $server->run;
 }