File Coverage

blib/lib/App/Gimei/Generator.pm

Criterion	Covered	Total	%
statement	35	35	100.0
branch	7	8	87.5
condition	8	8	100.0
subroutine	7	7	100.0
pod	0	2	0.0
total	57	60	95.0

package App::Gimei::Generator;

use warnings;
use v5.22;

use Carp;
use Class::Tiny qw(
    word_class
    gender
    word_subtype
    render
    cache
);
use Data::Gimei;

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

    for my $arg ( qw/word_class/ ) {
	croak "$arg arg required" unless exists $args{$arg};
    }

    $args{word_subtype} //= '';
    $args{gender} //= '';
    $args{render} //= 'kanji';

    return \%args;
}

sub execute {
    my ( $self, $cache ) = @_;
    my ( $word );

    my $key = $self->word_class . $self->gender;
    $word = $cache->{$key};
    if (!defined $word) {
	$word = $self->word_class->new( gender => ($self->gender || undef) );
	$cache->{$key} = $word;
    }

    if ($self->word_subtype eq 'gender') {
	return $word->gender;
    } elsif ($self->word_subtype) {
	my $call = $word->can($self->word_subtype);
	$word = $word->$call();
    }

    my $call = $word->can($self->render);
    $word = $word->$call();

    return $word;
}

1;