package PerlIO::via::Append;

sub PUSHED {
        my ($class,$mode,$fh)=@_;
        return -1 if $mode eq 'r' || $mode eq 'r+';
        my $buf='';
        bless \$buf,$class;
}

sub WRITE {
        my ($self,$buf,$fh)=@_;
        $$self.=$buf;
        length($buf);
}

sub FLUSH {
        my ($self,$fh)=@_;
        print $fh $$self or return -1;
        $$self='';
        0;
}

sub POPPED {
        my ($self,$fh)=@_;
        print $fh "\n";
}