Help for this page

Select Code to Download


  1. or download this
    sub setup_listener {
        my $self = shift;
    ...
            or croak "bind to @{[$self->host||'*']}:@{[$self->port]}: $!";
        listen( HTTPDaemon, SOMAXCONN ) or croak "listen: $!";
    }
    
  2. or download this
        $self->host('localhost') if ! defined $self->host;
        $self->host('localhost') if  $self->host eq '0.0.0.0';