Add built local::lib

[catagits/Gitalist.git] / local-lib5 / lib / perl5 / XML / SAX / PurePerl / Reader / UnicodeExt.pm

diff --git a/local-lib5/lib/perl5/XML/SAX/PurePerl/Reader/UnicodeExt.pm b/local-lib5/lib/perl5/XML/SAX/PurePerl/Reader/UnicodeExt.pm
new file mode 100644 (file)
index 0000000..0751068
--- /dev/null
+++ b/local-lib5/lib/perl5/XML/SAX/PurePerl/Reader/UnicodeExt.pm
@@ -0,0 +1,23 @@
+# $Id: UnicodeExt.pm,v 1.5 2008-08-04 10:04:54 grant Exp $
+
+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;
+