File Coverage

blib/lib/Sort/strverscmp/StringIterator.pm

Criterion	Covered	Total	%
statement	33	40	82.5
branch	3	4	75.0
condition			n/a
subroutine	11	13	84.6
pod	0	9	0.0
total	47	66	71.2

package Sort::strverscmp::StringIterator;

use Carp qw(croak);
use v5.10;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $string = shift;

    unless ($string) {
        croak 'invalid string';
    }

    my $o = {};
    $o->{pos} = 0;
    $o->{string} = $string;
    $o->{len} = length($string);

    return bless $o, $class;
}

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

sub string {
    my $self = shift;
    return $self->{string};
}

sub len {
    my $self = shift;
    return $self->{len};
}

sub head {
    my $self = shift;
    if ($self->pos >= $self->len) {
        return;
    } else {
        return substr($self->string, $self->pos, 1);
    }
}

sub tail {
    my $self = shift;
    return substr($self->string, $self->pos + 1);
}

sub tail_len {
    my $self = shift;
    return ($self->len - $self->pos);
}

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

sub next {
    my $self = shift;
    my $head = $self->head();
    $self->advance();
    return $head;
}

1;