package HTTP::Proxy::Engine::NoFork;
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 ) );
$proxy->max_keep_alive_requests( 1 );
}
sub run {
my $self = shift;
my $proxy = $self->proxy;
for my $fh ( $self->select->can_read() ) {
$proxy->serve_connections( $fh->accept );
$proxy->new_connection;
}
}
1;
__END__
=head1 NAME
HTTP::Proxy::Engine::NoFork - A basic, non forking HTTP::Proxy engine
=head1 SYNOPSIS
use HTTP::Proxy;
my $proxy = HTTP::Proxy->new( engine => 'NoFork' );
=head1 DESCRIPTION
The HTTP::Proxy::Engine::NoFork engine runs the proxy with forking.
This
=head1 METHODS
=over 4
=item start()
Initialise the engine.
=item run()
Implements the non-forking logic by calling $proxy->serve_requests()
directly.
=back
=head1 SEE ALSO
L<HTTP::Proxy>, L<HTTP::Proxy::Engine>.
=head1 AUTHOR
Philippe "BooK" Bruhat, C<< <book@cpan.org> >>.
=head1 COPYRIGHT
Copyright 2005, Philippe Bruhat.
=head1 LICENSE
This module is free software; you can redistribute it or modify it under
the same terms as Perl itself.
=cut