File Coverage

blib/lib/Games/Solitaire/Verify/LinesIter.pm

Criterion	Covered	Total	%
statement	28	30	93.3
branch	2	4	50.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	39	43	90.7

package Games::Solitaire::Verify::LinesIter;
$Games::Solitaire::Verify::LinesIter::VERSION = '0.2601';
use strict;
use warnings;
use autodie;

sub new
{
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init(@_);

    return $self;
}

sub _init
{
    my ( $self, $args ) = @_;

    $self->{_get}      = $args->{_get};
    $self->{_line_num} = 0;

    return;
}

sub _get_line
{
    my ( $self, ) = @_;

    my $ret = $self->{_get}->();
    return ( $ret, ++$self->{_line_num} );
}

sub _assert_empty_line
{
    my ( $self, ) = @_;

    my ( $s, $line_idx ) = $self->_get_line;

    if ( $s ne '' )
    {
        Carp::confess("Line '$line_idx' is not empty, but '$s'");
    }

    return;
}

sub _compare_line
{
    my ( $self, $wanted_line, $title, ) = @_;

    my ( $line, $line_idx ) = $self->_get_line;
    if ( $line ne $wanted_line )
    {
        Carp::confess(
            "$title string is '$line' vs. '$wanted_line' at line no. $line_idx"
        );
    }

    return;
}

1;

__END__