package PerlIO::via::HtmlEncode;
 
 
$VERSION = '0.01';
use strict;
 
 
use HTML::Entities;
 
 
1;
 
sub PUSHED { bless \*PUSHED,$_[0] }
 
 
sub FILL {
 
    my $line = readline( $_[1] );
    (defined $line) ? decode_entities( $line ) : undef;
}
 
sub WRITE {
 
    (print {$_[2]} encode_entities($_[1])) ? length($_[1]) : -1;
}
 
1;