| Subject: | Feature request: remove() and remove_all() |
Could you please add the following two function?
sub remove {
my ($self, $id) = @_;
my $hashref = $self->{in_progress}{$id}
or return undef;
my $s = $hashref->{handle};
$self->_io_select->remove($s);
delete $self->{fileno_to_id}{ $s->fileno };
delete $self->{in_progress}{$id};
delete $self->{id_opts}{$id};
return $hashref->{request};
}
sub remove_all {
my ($self) = @_;
return map $self->remove($_), keys %{ $self->{in_progress} };
}
Context: http://stackoverflow.com/questions/10587962/