File Coverage

blib/lib/HTTP/Proxy/Engine/NoFork.pm

Criterion	Covered	Total	%
statement	3	12	25.0
branch			n/a
condition			n/a
subroutine	1	3	33.3
pod	2	2	100.0
total	6	17	35.2

package HTTP::Proxy::Engine::NoFork;
$HTTP::Proxy::Engine::NoFork::VERSION = '0.303';
use strict;

our @ISA = qw( HTTP::Proxy::Engine );

__PACKAGE__->make_accessors( 'select' );

sub start {
    my $self = shift;
    my $proxy = $self->proxy;

    $self->select( IO::Select->new( $proxy->daemon ) );

    # clients will not block the proxy by keeping the connection open
    $proxy->max_keep_alive_requests( 1 );
}

sub run {
    my $self  = shift;
    my $proxy = $self->proxy;

    # check for new connections
    for my $fh ( $self->select->can_read() ) {    # there's only one, anyway

        # single-process proxy
        $proxy->serve_connections( $fh->accept );
        $proxy->new_connection;
    }
}

1;

__END__