File Coverage

blib/lib/Data/Gimei/Word.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 21 23 91.3


line stmt bran cond sub pod time code
1             package Data::Gimei::Word;
2              
3 5     5   29 use warnings;
  5         7  
  5         135  
4 5     5   42 use v5.22;
  5         12  
5              
6 5         22 use Class::Tiny qw (
7             kanji
8             hiragana
9             katakana
10             romaji
11 5     5   23 );
  5         7  
12              
13             sub BUILDARGS {
14 44     44 0 1350 my ( $class, $aref ) = @_;
15              
16 44         135 my %args = (
17             kanji => $aref->[0],
18             hiragana => $aref->[1],
19             katakana => $aref->[2],
20             );
21 44 100       108 $args{romaji} = ucfirst( $aref->[3] ) if ( $aref->[3] );
22              
23 44         86 return \%args;
24             }
25              
26             sub to_s {
27 3     3 0 939 my $self = shift;
28              
29 3         47 return sprintf( "%s, %s, %s, %s",
30             $self->kanji, $self->hiragana, $self->katakana, $self->romaji );
31             }
32             1;