File Coverage

blib/lib/PerlIO/via/chop.pm

Criterion	Covered	Total	%
statement	10	17	58.8
branch	1	2	50.0
condition			n/a
subroutine	3	4	75.0
pod	0	2	0.0
total	14	25	56.0

package PerlIO::via::chop;

# Set the version info
# Make sure we do things by the book from now on

$VERSION = '0.01';

use strict;

# Make sure the encoding/decoding stuff is available

1;

sub PUSHED { bless \*PUSHED,$_[0] }
sub FILL { readline( $_[1] ) }

my %buffer;
sub WRITE {
    my $buffer = $buffer{$_[2]};
    if (defined $buffer) {
	print {$_[2]} $buffer;
	print {$_[2]} substr($_[1], 0, -1);
	$buffer{$_[2]} = substr($_[1], -1);
	return length($_[1]);
    }
    else {
	print {$_[2]} substr($_[1], 0, -1);
	$buffer{$_[2]} = substr($_[1], -1);
	return length($_[1]) - 1;
    }
} #WRITE


1;
__END__