File Coverage

blib/lib/TableData/WordList.pm

Criterion	Covered	Total	%
statement	11	48	22.9
branch	0	16	0.0
condition			n/a
subroutine	4	14	28.5
pod	1	9	11.1
total	16	87	18.3

package TableData::WordList;

use 5.010001;
use strict;
use warnings;

use Role::Tiny::With;

our $AUTHORITY = 'cpan:PERLANCAR'; # AUTHORITY
our $DATE = '2023-08-27'; # DATE
our $DIST = 'TableData-WordList'; # DIST
our $VERSION = '0.001'; # VERSION

with 'TableDataRole::Spec::Basic';

sub new {
    require Module::Load::Util;

    my ($class, %args) = @_;
    defined $args{wordlist} or die "Please specify 'wordlist' argument";
    bless({
        wordlist => Module::Load::Util::instantiate_class_with_optional_args(
            {ns_prefix=>'WordList'}, $args{wordlist}),
        pos => 0,
    }, $class);
}

sub get_column_count { 1 }

sub get_column_names {
    my $self = shift;
    wantarray ? ('word') : ['word'];
}

sub has_next_item {
    my $self = shift;
    return 1 if defined $self->{_next_word};
    defined($self->{_next_word} = $self->{wordlist}->next_word) ? 1:0;
}

sub get_next_item {
    my $self = shift;
    if (defined $self->{_next_word}) {
        $self->{pos}++;
        return [delete($self->{_next_word})];
    }
    my $word = $self->{wordlist}->next_word;
    die "StopIteration" unless defined $word;
    $self->{pos}++;
    [$word];
}

sub get_next_row_hashref {
    my $self = shift;
    if (defined $self->{_next_word}) {
        $self->{pos}++;
        return {word => delete($self->{_next_word})};
    }
    my $word = $self->{wordlist}->next_word;
    die "StopIteration" unless defined $word;
    $self->{pos}++;
    {word=>$word};
}

sub get_row_count {
    my $self = shift;
    my $n = 0;
    $self->{wordlist}->each_word(sub { $n++ });
    $self->{pos} = 0;
    $n;
}

sub reset_iterator {
    my $self = shift;
    $self->{wordlist}->reset_iterator;
    $self->{pos} = 0;
}

sub get_iterator_pos {
    my $self = shift;
    $self->{pos};
}

1;
# ABSTRACT: List of words from a WordList module

__END__