/usr/local/CPAN/LWPng-alpha/LWP/Sink/_Pipe.pm

• package LWP::Sink::_Pipe
  • sink
  • push
  • flush
  • close
• EOF

package LWP::Sink::_Pipe;

use strict;

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

sub push
{
    my($self, $sink) = @_;
    return $self->{'sink'}->push($sink) if $self->{'sink'};
    $self->{'sink'} = $sink;
    $self;
}

sub flush
{
    my $self = shift;
    if (my $sink = $self->{'sink'}) {
	return $sink->flush;
    }
    1;
}

sub close
{
    my $self = shift;
    if (my $sink = delete $self->{'sink'}) {
	return $sink->close;
    }
    1;
}

1;