package Catalyst::Engine::HTTP::Daemon;

# [ ... ]

sub run {
    my $class = shift;
    my $port  = shift || 3000;
    my $host  = shift || 'localhost';
    
    $HTTP::Daemon::PROTO = 'HTTP/1.0'; # For now until we resolve the blocking 
                                       # issues with HTTP 1.1

    my $daemon = Catalyst::Engine::HTTP::Daemon::Catalyst->new(
        Listen    => SOMAXCONN,
        LocalPort => $port,
        LocalHost => $host,
        ReuseAddr => 1,
        Type      => SOCK_STREAM,
    );

# [ ... ]