File Coverage

blib/lib/HTML/Shakan/Filter/KatakanaZ.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::KatakanaZ;
2 1     1   459 use strict;
  1         2  
  1         28  
3 1     1   16 use warnings;
  1         2  
  1         28  
4 1     1   9 use Mouse;
  1         2  
  1         8  
5             with 'HTML::Shakan::Role::Filter';
6 1         128 use Lingua::JA::Regular::Unicode qw(
7             hiragana2katakana
8             katakana_h2z
9 1     1   463 );
  1         2  
10              
11             sub filter {
12 1     1 0 3 my ($self, $val) = @_;
13 1         4 hiragana2katakana(katakana_h2z($val));
14             }
15              
16 1     1   6 no Mouse;
  1         2  
  1         5  
17             __PACKAGE__->meta->make_immutable;
18             __END__
19              
20             =head1 NAME
21              
22             HTML::Shakan::Filter::KatakanaZ - convert Hiragana to Katakana
23              
24             =head1 SYNOPSIS
25              
26             TextField(name => 'body', filters => [qw/Katakana/])
27              
28             =head1 DESCRIPTION
29              
30             This module converts Hiragana chars to Katakana chars.
31             (for Japanese)
32              
33             =head1 SEE ALSO
34              
35             L<Lingua::JA::Regular::Unicode>
36