File Coverage

blib/lib/HTML/Shakan/Filter/Hiragana.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1             package HTML::Shakan::Filter::Hiragana;
2 2     2   699 use strict;
  2         6  
  2         49  
3 2     2   9 use warnings;
  2         4  
  2         39  
4 2     2   7 use Mouse;
  2         4  
  2         9  
5             with 'HTML::Shakan::Role::Filter';
6 2         171 use Lingua::JA::Regular::Unicode qw(
7             katakana2hiragana
8 2     2   640 );
  2         4  
9              
10             sub filter {
11 2     2 0 6 my ($self, $val) = @_;
12 2         9 katakana2hiragana($val);
13             }
14              
15 2     2   12 no Mouse;
  2         5  
  2         7  
16             __PACKAGE__->meta->make_immutable;
17             __END__
18              
19             =head1 NAME
20              
21             HTML::Shakan::Filter::Hiragana - convert Katakana to Hiragana
22              
23             =head1 SYNOPSIS
24              
25             TextField(name => 'body', filters => [qw/Hiragana/])
26              
27             =head1 DESCRIPTION
28              
29             This module converts Katakana chars to Hiragana chars.
30             (for Japanese)
31              
32             =head1 SEE ALSO
33              
34             L<Lingua::JA::Regular::Unicode>
35