changeset 307 | 989c70555820 |
300:228efacd68af | 307:989c70555820 |
---|---|
1 # $Id: UnicodeExt.pm,v 1.4 2003/07/30 13:39:23 matt Exp $ |
|
2 |
|
3 package XML::SAX::PurePerl::Reader; |
|
4 use strict; |
|
5 |
|
6 use Encode; |
|
7 |
|
8 sub set_raw_stream { |
|
9 my ($fh) = @_; |
|
10 binmode($fh, ":bytes"); |
|
11 } |
|
12 |
|
13 sub switch_encoding_stream { |
|
14 my ($fh, $encoding) = @_; |
|
15 binmode($fh, ":encoding($encoding)"); |
|
16 } |
|
17 |
|
18 sub switch_encoding_string { |
|
19 Encode::from_to($_[0], $_[1], "utf-8"); |
|
20 } |
|
21 |
|
22 1; |
|
23 |