File Coverage

blib/lib/EBook/Ishmael/CharDet/ISO2022KR.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 23 25 92.0


line stmt bran cond sub pod time code
1             package EBook::Ishmael::CharDet::ISO2022KR;
2 18     18   338 use 5.016;
  18         71  
3             our $VERSION = '2.03';
4 18     18   138 use strict;
  18         55  
  18         558  
5 18     18   90 use warnings;
  18         66  
  18         1254  
6              
7 18     18   143 use parent 'EBook::Ishmael::CharDet::ISO2022';
  18         67  
  18         163  
8              
9             sub new {
10              
11 23     23 0 66 my ($class) = @_;
12              
13 23         67 my $self = bless {}, $class;
14 23         241 $self->SUPER::initialize;
15              
16             $self->{Unique} = [
17 23         76 '$)C', # KS X 1001 to G1
18             ];
19              
20 23         98 return $self;
21              
22             }
23              
24 19     19 0 83 sub encoding { 'iso-2022-kr' }
25              
26             1;