File Coverage

blib/lib/Games/Solitaire/Verify/State/LaxParser.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	7	8	87.5
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	38	40	95.0

package Games::Solitaire::Verify::State::LaxParser;
$Games::Solitaire::Verify::State::LaxParser::VERSION = '0.2401';
use warnings;
use strict;


use parent 'Games::Solitaire::Verify::State';

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

    my $rank_re = '[0A1-9TJQK]';

    my $founds_s;
    if ( $str =~ m{\A(Foundations:[^\n]*)\n}cgms )
    {
        $founds_s = $1;
    }
    else
    {
        $founds_s = "Foundations: H-0 C-0 D-0 S-0";
    }

    $self->set_foundations(
        Games::Solitaire::Verify::Foundations->new(
            {
                num_decks => $self->num_decks(),
                string    => $founds_s,
            }
        )
    );

    my $fc = 'Freecells:';
    if ( $str =~ m{\G(Freecells:[^\n]*)\n}cgms )
    {
        $fc = $1;
    }
    $self->_assign_freecells_from_string($fc);

    foreach my $col_idx ( 0 .. ( $self->num_columns() - 1 ) )
    {
        if ( $str !~ m{\G([^\n]*)\n}msg )
        {
            Games::Solitaire::Verify::Exception::Parse::State::Column->throw(
                error => "Cannot parse column",
                index => $col_idx,
            );
        }
        my $column_str = $1;
        if ( $column_str !~ /\A:/ )
        {
            $column_str =~ s/\A\s*/: /;
        }

        $self->add_column(
            Games::Solitaire::Verify::Column->new(
                {
                    string => $column_str,
                }
            )
        );
    }

    return;
}

1;    # End of Games::Solitaire::Verify::State

__END__