[Web::Handler::HTTPDaemon] generalized the call

Now not only the port, but also the host name is a parameter.
masak · Oct 24, 2009 · e24dabb · e24dabb
1 parent 92f7b99
commit e24dabb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/lib/Web/Handler/HTTPDaemon.pm b/lib/Web/Handler/HTTPDaemon.pm
@@ -3,8 +3,8 @@ use v6;
 use HTTP::Daemon;
 
 class Web::Handler::HTTPDaemon {
-    method run(&app, :$port = 8888) {
+    method run(&app, :$host = 'localhost', :$port = 8888) {
-        my HTTP::Daemon $d .= new(LocalPort => $port);
+        my HTTP::Daemon $d .= new(LocalAddr => $host, LocalPort => $port);
         while my $c = $d.accept and my HTTP::Request $r = $c.get_request {
             my $qs = $r.url.path ~~ / '?' (.*) $/ ?? $0 !! '';
             my %env = { "QUERY_STRING" => $qs };