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   238 use 5.016;
  18         50  
3             our $VERSION = '2.05';
4 18     18   78 use strict;
  18         26  
  18         327  
5 18     18   48 use warnings;
  18         45  
  18         756  
6              
7 18     18   61 use parent 'EBook::Ishmael::CharDet::ISO2022';
  18         36  
  18         88  
8              
9             sub new {
10              
11 23     23 0 45 my ($class) = @_;
12              
13 23         39 my $self = bless {}, $class;
14 23         97 $self->SUPER::initialize;
15              
16             $self->{Unique} = [
17 23         44 '$)C', # KS X 1001 to G1
18             ];
19              
20 23         125 return $self;
21              
22             }
23              
24 19     19 0 65 sub encoding { 'iso-2022-kr' }
25              
26             1;