package LWP::Sink::Tee;

use strict;
use vars qw(@ISA);

require LWP::Sink;
@ISA=qw(LWP::Sink);


sub sinks
{
    my $self = shift;
    my @old = $self->{'sinks'};
    if (@_) {
	$self->{'sinks'} = @_;
    }
    @old;
}

sub append
{
    my $self = shift;
    push(@{$self->{'sinks'}}, @_);
    $self;
}

sub put
{
    my $self = shift;
    for (@{$self->{'sinks'}}) {
	$_->put(@_);
    }
    1;
}


sub flush
{
    my $self = shift;
    for (@{$self->{'sinks'}}) {
	$_->flush;
    }
    1;
}

sub close
{
    my $self = shift;
    for (@{delete $self->{'sinks'}}) {
	$_->close;
    }
    1;
}

1;