File Coverage

blib/lib/Statistics/R/IO/ParserState.pm

Criterion	Covered	Total	%
statement	32	36	88.8
branch	5	10	50.0
condition	2	3	66.6
subroutine	10	10	100.0
pod	5	7	71.4
total	54	66	81.8

package Statistics::R::IO::ParserState;
# ABSTRACT: Current state of the IO parser
$Statistics::R::IO::ParserState::VERSION = '1.0001';
use 5.010;

use Class::Tiny::Antlers;
use namespace::clean;

has data => (
    is => 'ro',
    default => sub { [] },
);

has position => (
    is => 'ro',
    default => sub { 0 },
);

has singletons => (
    is => 'ro',
    default => sub { [] },
);


sub BUILDARGS {
    my $class = shift;
    my $attributes = {};

    if ( scalar @_ == 1) {
        if ( ref $_[0] eq 'HASH' ) {
            $attributes = $_[0]
        }
        else {
            $attributes->{name} = $_[0]
        }
    }
    elsif ( @_ % 2 ) {
        die "The new() method for $class expects a hash reference or a key/value list."
                . " You passed an odd number of arguments\n";
    }
    else {
        $attributes = { @_ };
    }

    # split strings into a list of individual characters
    if (defined $attributes->{data} && !ref($attributes->{data})) {
        $attributes->{data} = [split //, $attributes->{data}];
    }

    $attributes
}

sub BUILD {
    my $self = shift;

    die 'foo' unless ref($self->data) eq 'ARRAY'
}

sub at {
    my $self = shift;
    $self->data->[$self->position]
}

sub next {
    my $self = shift;

    ref($self)->new(data => $self->data,
                    position => $self->position+1,
                    singletons => [ @{$self->singletons} ])
}

sub add_singleton {
    my ($self, $singleton) = (shift, shift);

    my @new_singletons = @{$self->singletons};
    push @new_singletons, $singleton;
    ref($self)->new(data => $self->data,
                    position => $self->position,
                    singletons => [ @new_singletons ])
}

sub get_singleton {
    my ($self, $singleton_id) = (shift, shift);
    $self->singletons->[$singleton_id]
}

sub eof {
    my $self = shift;
    $self->position >= scalar @{$self->data};
}


1;

__END__