# $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;
Name | Type | Size | Permission | Actions |
---|---|---|---|---|
NoUnicodeExt.pm | File | 587 B | 0644 |
|
Stream.pm | File | 1.76 KB | 0644 |
|
String.pm | File | 1.65 KB | 0644 |
|
URI.pm | File | 1.43 KB | 0644 |
|
UnicodeExt.pm | File | 326 B | 0644 |
|