File Coverage

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

Criterion	Covered	Total	%
statement	20	21	95.2
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	30	32	93.7

package Games::Solitaire::Verify::VariantsMap;
$Games::Solitaire::Verify::VariantsMap::VERSION = '0.2403';
use strict;
use warnings;

use Games::Solitaire::Verify::VariantParams ();

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


sub _init
{
    return 0;
}

my %variants_map = (
    "bakers_dozen" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 13,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "rank",
            'empty_stacks_filled_by' => "none",
        }
    ),
    "bakers_game" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 4,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "any",
        }
    ),
    "beleaguered_castle" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "rank",
            'empty_stacks_filled_by' => "any",
        }
    ),
    "cruel" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 12,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "none",
        }
    ),
    "der_katzenschwanz" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 2,
            'num_columns'            => 9,
            'num_freecells'          => 8,
            'sequence_move'          => "unlimited",
            'seq_build_by'           => "alt_color",
            'empty_stacks_filled_by' => "none",
        }
    ),
    "die_schlange" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 2,
            'num_columns'            => 9,
            'num_freecells'          => 8,
            'sequence_move'          => "limited",
            'seq_build_by'           => "alt_color",
            'empty_stacks_filled_by' => "none",
        }
    ),
    "eight_off" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 8,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "fan" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 18,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "forecell" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 4,
            'sequence_move'          => "limited",
            'seq_build_by'           => "alt_color",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "freecell" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 4,
            'sequence_move'          => "limited",
            'seq_build_by'           => "alt_color",
            'empty_stacks_filled_by' => "any",
        }
    ),
    "good_measure" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 10,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "rank",
            'empty_stacks_filled_by' => "none",
        }
    ),
    "kings_only_bakers_game" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 4,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "relaxed_freecell" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 8,
            'num_freecells'          => 4,
            'sequence_move'          => "unlimited",
            'seq_build_by'           => "alt_color",
            'empty_stacks_filled_by' => "any",
        }
    ),
    "relaxed_seahaven_towers" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 10,
            'num_freecells'          => 4,
            'sequence_move'          => "unlimited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "seahaven_towers" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 10,
            'num_freecells'          => 4,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "kings",
        }
    ),
    "simple_simon" => Games::Solitaire::Verify::VariantParams->new(
        {
            'num_decks'              => 1,
            'num_columns'            => 10,
            'num_freecells'          => 0,
            'sequence_move'          => "limited",
            'seq_build_by'           => "suit",
            'empty_stacks_filled_by' => "any",
            'rules'                  => "simple_simon",
        }
    ),
);


sub calc_variants_map
{
    my $self = shift;

    return \%variants_map;
}


sub get_variant_by_id
{
    my $self = shift;
    my $id   = shift;

    my $map = $self->calc_variants_map();

    if ( !exists( $map->{$id} ) )
    {
        return undef;
    }
    else
    {
        return $map->{$id}->clone();
    }
}


1;

__END__