Current Path :
/
usr
/
local
/
share
/
perl5
/
XML
/
SAX
/
PurePerl
/
Reader
/
Or
Select Your Path :
Upload File :
New :
File
Dir
//usr/local/share/perl5/XML/SAX/PurePerl/Reader/UnicodeExt.pm
# $Id$ package XML::SAX::PurePerl::Reader; use strict; use Encode (); sub set_raw_stream { my ($fh) = @_; binmode($fh, ":bytes"); } sub switch_encoding_stream { my ($fh, $encoding) = @_; binmode($fh, ":encoding($encoding)"); } sub switch_encoding_string { $_[0] = Encode::decode($_[1], $_[0]); } 1;
