LWP::ConnCache::MaxKeepAliveRequests - A connection cache that enforces a max keep alive limit

LWP-ConnCache-MaxKeepAliveRequests documentation Contained in the LWP-ConnCache-MaxKeepAliveRequests distribution.

Index

Code Index:

NAME

Top

LWP::ConnCache::MaxKeepAliveRequests - A connection cache that enforces a max keep alive limit

SYNOPSIS

Top

  use LWP;
  use LWP::ConnCache::MaxKeepAliveRequests;
  my $ua = LWP::UserAgent->new;
  $ua->conn_cache(
      LWP::ConnCache::MaxKeepAliveRequests->new(
          total_capacity          => 10,
          max_keep_alive_requests => 100,
      )
  );

DESCRIPTION

Top

LWP::UserAgent is the default module for issuing HTTP requests from Perl. It has a keep_alive setting which by default allows unlimited requests to the same server. Some servers will disconnect you after a limited number of requests (in Apache 2 this is achieved with the MaxKeepAliveRequests directive). This module allows you to limit the maximum number of keep alive requests to a server.

AUTHOR

Top

Leon Brocard <acme@astray.com>.

COPYRIGHT

Top

Copyright (C) 2008, Leon Brocard

LICENSE

Top

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.

LWP-ConnCache-MaxKeepAliveRequests documentation Contained in the LWP-ConnCache-MaxKeepAliveRequests distribution. 
package LWP::ConnCache::MaxKeepAliveRequests;
use Moose;
our $VERSION = '0.32';

extends 'LWP::ConnCache';

sub new {
    my ( $class, %args ) = @_;
    my $max_keep_alive_requests = $args{max_keep_alive_requests} || 100;
    delete $args{max_keep_alive_requests};
    my $self = LWP::ConnCache->new(%args);
    $self->{max_keep_alive_requests} = $max_keep_alive_requests;
    bless $self, $class;
    return $self;
}

around 'deposit' => sub {
    my ( $coderef, $self, $type, $key, $conn ) = @_;
    my $max_keep_alive_requests = $self->{max_keep_alive_requests};

    my $keep_alive_requests = ${*$conn}{'myhttp_response_count'};
    if ( $keep_alive_requests < $max_keep_alive_requests ) {
        $coderef->( $self, $type, $key, $conn );
    }
};

1;

__END__