File Coverage

blib/lib/Games/Solitaire/BlackHole/Solver/App.pm

Criterion	Covered	Total	%
statement	5	22	22.7
branch	0	4	0.0
condition			n/a
subroutine	2	3	66.6
pod	1	1	100.0
total	8	30	26.6

package Games::Solitaire::BlackHole::Solver::App;
$Games::Solitaire::BlackHole::Solver::App::VERSION = '0.4.0';
use 5.014;
use Moo;

extends('Games::Solitaire::BlackHole::Solver::App::Base');


sub run
{
    my $self      = shift;
    my $RANK_KING = $self->_RANK_KING;

    $self->_process_cmd_line(
        {
            extra_flags => {}
        }
    );

    $self->_set_up_solver( 0, [ 1, $RANK_KING ] );

    my $verdict = 0;

    $self->_next_task;

QUEUE_LOOP:
    while ( my $state = $self->_get_next_state_wrapper )
    {
        # The foundation
        my $no_cards = 1;

        my @_pending;

        if (1)
        {
            $self->_find_moves( \@_pending, $state, \$no_cards );
        }

        if ($no_cards)
        {
            $self->_trace_solution( $state, );
            $verdict = 1;
            last QUEUE_LOOP;
        }
        last QUEUE_LOOP
            if not $self->_process_pending_items( \@_pending, $state );
    }

    return $self->_my_exit( $verdict, );
}


1;

__END__