package PUA; use LWP::Parallel::UserAgent; @PUA::ISA = qw(LWP::Parallel::UserAgent); sub on_return { # print '@_ = (' . join(', ',map{"'$_'"} @_) .")\n"; my ($self,$request, $response, $entry) = @_; $self->discard_entry($entry); } 1;