File Coverage

blib/lib/String/Eertree/Node.pm

Criterion	Covered	Total	%
statement	8	8	100.0
branch			n/a
condition	2	2	100.0
subroutine	4	4	100.0
pod	0	2	0.0
total	14	16	87.5

package String::Eertree::Node;

use Moo;

has length     => (is => 'ro',  required => 1);
has pos        => (is => 'rwp', required => 1);
has link       => (is => 'rwp');
has edge       => (is => 'lazy', predicate => 1, builder => sub { {} }, );
has count      => (is => 'rwp', default => 1);
has step_tally => (is => 'rwp', default => 1);

sub increment_count {
    my ($self, $count) = @_;
    $self->_set_count(($count // 1) + $self->count);
}

sub string {
    my ($self, $eertree) = @_;
    return substr $eertree->string, $self->pos, $self->length
}

=head1 NAME

String::Eertree::Node - Represents a single node in a String::Eertree

=head1 VERSION

Version 0.01

=cut

our $VERSION = '0.01';

=head1 SYNOPSIS

You can study the implementation if you're interested in how eertrees
work. Otherwise, just use C.

=cut

__PACKAGE__