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

package Data::Gimei::Word;

use warnings;
use v5.22;

use Class::Tiny qw (
  kanji
  hiragana
  katakana
  romaji
);

sub BUILDARGS {
    my ( $class, $aref ) = @_;

    my %args = (
        kanji    => $aref->[0],
        hiragana => $aref->[1],
        katakana => $aref->[2],
    );
    $args{romaji} = ucfirst( $aref->[3] ) if ( $aref->[3] );

    return \%args;
}

sub to_s {
    my $self = shift;

    return sprintf( "%s, %s, %s, %s",
        $self->kanji, $self->hiragana, $self->katakana, $self->romaji );
}
1;