File Coverage

blib/lib/Data/RandomPerson/Names.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	3	3	100.0
total	42	43	97.6

package Data::RandomPerson::Names;

use strict;
use warnings;

use Data::RandomPerson::Choice;
use File::Share ':all';

sub new {
    my ($class) = @_;

    my $self = bless {}, $class;

    $self->{choice} = Data::RandomPerson::Choice->new();

    my $module = (split /::/, $class)[-1];

    my $file = dist_file ('Data-RandomPerson', $module . '.txt');
    open ( my $fh, '< :encoding(UTF8)', $file) or die "Can't open '$file': $!";
    my @file = <$fh>;
    close $fh;

    chomp (@file);
    $self->{choice}->add_list(@file);

    return $self;
}

sub size {
    my ($self) = @_;

    return $self->{choice}->size();
}

sub get {
    my ($self) = @_;

    return ucfirst $self->{choice}->pick();
}

1;

__END__