File Coverage

blib/lib/Games/LMSolve.pm

Criterion	Covered	Total	%
statement	14	53	26.4
branch	0	12	0.0
condition			n/a
subroutine	5	11	45.4
pod	5	5	100.0
total	24	81	29.6

package Games::LMSolve;
$Games::LMSolve::VERSION = '0.14.0';
use strict;
use warnings;

use 5.008;

use Getopt::Long;
use Pod::Usage;

# You can think of this module as a Factory[1] for the solver classes.
# It reads the -g/--game/--preset [variant name] command line option
# and determines which class to instantiate based on it.
#
# Note that it does not touch the other command line options so the
# GetOptions() called by the main() function of the class will be
# able to process them.
#
# [1] - Refer to the book "Design Patterns" by Erich Gamma et. al.
#


sub new
{
    my $class = shift;

    my $self = {};

    bless $self, $class;

    $self->_initialize(@_);

    return $self;
}

sub _initialize
{
    my $self = shift;

    my %args = @_;

    $self->{'games_solvers'} = {};

    $self->register_all_solvers();

    if ( exists( $args{'default_variant'} ) )
    {
        $self->set_default_variant( $args{'default_variant'} );
    }

    return 0;
}


sub set_default_variant
{
    my $self = shift;

    my $variant = shift;

    $self->{'default_variant'} = $variant;

    return 0;
}


sub register_solvers
{
    my $self = shift;

    my $games = shift;

    $self->{'games_solvers'} = { %{ $self->{'games_solvers'} }, %$games };

    return 0;
}


sub register_all_solvers
{
    my $self = shift;

    return 0;
}


sub main
{
    my $self = shift;

    my $variant = $self->{'default_variant'};
    my $help    = 0;
    my $man     = 0;

    Getopt::Long::Configure('pass_through');
    GetOptions(
        "g|game=s" => \$variant,
        'help|h|?' => \$help,
        'man'      => \$man
    ) or pod2usage(2);

    pod2usage(1) if $help;
    pod2usage( -exitstatus => 0, -verbose => 2 ) if $man;

    if ( !exists( $self->{'games_solvers'}->{$variant} ) )
    {
        die "Unknown game variant \"$variant\"";
    }

    my $class = $self->{'games_solvers'}->{$variant};
    my $game;
    if ( ref($class) eq "CODE" )
    {
        $game = $class->();
    }
    else
    {
        $game = $class->new();
    }
    $game->main();
}
1;

__END__