Na}{

File Content: `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;

Name	Size	Permission
NoUnicodeExt.pm	587 bytes	0444
Stream.pm	1801 bytes	0444
String.pm	1691 bytes	0444
URI.pm	1462 bytes	0444
UnicodeExt.pm	326 bytes	0444

File Content: UnicodeExt.pm

File Content: `UnicodeExt.pm`