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   1788 use strict;
  2         4  
  2         67  
3 2     2   9 use warnings;
  2         4  
  2         51  
4 2     2   11 use Mouse;
  2         2  
  2         13  
5             with 'HTML::Shakan::Role::Filter';
6 2         214 use Lingua::JA::Regular::Unicode qw(
7             katakana2hiragana
8 2     2   669 );
  2         4  
9              
10             sub filter {
11 2     2 0 5 my ($self, $val) = @_;
12 2         9 katakana2hiragana($val);
13             }
14              
15 2     2   10 no Mouse;
  2         4  
  2         9  
16             __PACKAGE__->meta->make_immutable;
17             __END__