File Coverage

blib/lib/XML/SAX/PurePerl/Reader/UnicodeExt.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 3 0.0
total 20 23 86.9


line stmt bran cond sub pod time code
1             # $Id$
2              
3             package XML::SAX::PurePerl::Reader;
4 12     12   67 use strict;
  12         21  
  12         497  
5              
6 12     12   13026 use Encode ();
  12         207217  
  12         3410  
7              
8             sub set_raw_stream {
9 19     19 0 44 my ($fh) = @_;
10 19         135 binmode($fh, ":bytes");
11             }
12              
13             sub switch_encoding_stream {
14 14     14 0 30 my ($fh, $encoding) = @_;
15 14     4   354 binmode($fh, ":encoding($encoding)");
  4         5349  
  4         47  
  4         23  
16             }
17              
18             sub switch_encoding_string {
19 17     17 0 91 $_[0] = Encode::decode($_[1], $_[0]);
20             }
21              
22             1;
23