File Coverage

blib/lib/Data/Gimei/Name.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	1	2	50.0
condition	14	17	82.3
subroutine	14	14	100.0
pod	0	7	0.0
total	73	84	86.9

package Data::Gimei::Name;

use 5.010;
use strict;
use warnings;

use Carp;
use File::Share qw( dist_file );
use YAML::XS;

use Class::Tiny qw(
  gender
  forename
  surname
);

#
# Package variables
#

our $names;    # loaded names data

#
# Class methods
#

sub load {
    my $yaml_path = shift // dist_file( 'Data-Gimei', 'names.yml' );
    Carp::croak("failed to load name data: $yaml_path") unless -r $yaml_path;

    $names = YAML::XS::LoadFile($yaml_path);
}

sub BUILDARGS {
    my $class = shift;
    my %args  = @_;

    $names //= load();

    $args{'gender'} //= Data::Gimei::sample( [ 'male', 'female' ] );
    $args{'forename'} = Data::Gimei::Word->new(
        Data::Gimei::sample( $names->{'first_name'}->{ $args{'gender'} } ) );
    $args{'surname'} =
      Data::Gimei::Word->new( Data::Gimei::sample( $names->{'last_name'} ) );

    return \%args;
}

#
# Instance methods
#

sub to_s {
    my $self = shift;

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

sub kanji {
    my ( $self, $s ) = @_;
    return join $s // ' ', map { $_->kanji } ( $self->surname, $self->forename );
}

sub hiragana {
    my ( $self, $s ) = @_;
    return join $s // ' ', map { $_->hiragana } ( $self->surname, $self->forename );
}

sub katakana {
    my ( $self, $s ) = @_;
    return join $s // ' ', map { $_->katakana } ( $self->surname, $self->forename );
}

sub romaji {
    my ( $self, $s ) = @_;
    return join $s // ' ', map { $_->romaji } ( $self->forename, $self->surname );
}

1;