package LWP::Hooks;
use strict;

sub add_hook
{
    my $self = shift;
    my $type = shift;
    push(@{$self->{"${type}_hooks"}}, @_);
    $self;
}

sub remove_hook
{
    my $self = shift;
    my $type = shift;
    my @hooks = @{$self->{"${type}_hooks"}};
    for my $rem (@_) {
	@hooks = grep $_ ne $rem, @hooks;
    }
    @{$self->{"${type}_hooks"}} = @hooks;
    $self;
}

sub clear_hooks
{
    my $self = shift;
    for (@_) {
	delete $self->{"$_\_hooks"};
    }
    $self;
}

sub copy_hooks_from
{
    my($self, $other, $type) = @_;
    unless (defined $type) {
	while (my($k,$v) = each %$other) {
	    next unless $k =~ /^(\w+)_hooks$/;
	    $self->copy_hooks_from($other, $1);
	}
	return;
    }

    my $hooks = $other->{"${type}_hooks"};
    return unless $hooks;
    for (@$hooks) {
	$self->add_hook($type, $_);
    }
}


sub run_hooks
{
    my $self = shift;
    my $type = shift;
    return $self unless $self->{"${type}_hooks"};
    my @hooks;
    for my $hook (@hooks = @{$self->{"${type}_hooks"}}) {
	&$hook($self, @_);
    }
    $self;
}

sub run_hooks_until_failure  # and
{
    my $self = shift;
    my $type = shift;
    return 1 unless $self->{"${type}_hooks"};
    my $res = 1;
    my @hooks;
    for my $hook (@hooks = @{$self->{"${type}_hooks"}}) {
	$res = &$hook($self, @_);
	last unless $res;
    }
    $res;
}

sub run_hooks_until_success  # or
{
    my $self = shift;
    my $type = shift;
    return unless $self->{"${type}_hooks"};
    my $res;
    my @hooks;
    for my $hook (@hooks = @{$self->{"${type}_hooks"}}) {
	$res = &$hook($self, @_);
	last if $res;
    }
    $res;
}

1;