File Coverage

blib/lib/HTML/ReplacePictogramMobileJp/DoCoMo.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package HTML::ReplacePictogramMobileJp::DoCoMo;
2 3     3   19 use strict;
  3         7  
  3         134  
3 3     3   17 use warnings;
  3         7  
  3         86  
4 3     3   26384 use HTML::ReplacePictogramMobileJp::Base;
  0            
  0            
5             use Encode;
6              
7             filter utf8 => 'x-utf8-docomo', sub {
8             unicode_property 'I';
9             unicode_hex_cref 'I';
10             };
11              
12             filter sjis => 'x-sjis-docomo', sub {
13             unicode_property 'I';
14             unicode_hex_cref 'I';
15              
16             s/&#([0-9]+);/
17             my $original = $1;
18             my $x = unpack 'U*', decode 'x-sjis-imode', pack 'H*', sprintf '%x', $original;
19             callback($x, 'I')
20             /gei;
21             };
22              
23             1;