File Coverage

blib/lib/Games/LMSolve/Registry.pm
Criterion Covered Total %
statement 36 40 90.0
branch n/a
condition n/a
subroutine 12 13 92.3
pod 1 1 100.0
total 49 54 90.7


line stmt bran cond sub pod time code
1             package Games::LMSolve::Registry;
2             $Games::LMSolve::Registry::VERSION = '0.14.1';
3 1     1   1500 use strict;
  1         2  
  1         30  
4 1     1   5 use warnings;
  1         2  
  1         30  
5              
6              
7 1     1   450 use Games::LMSolve;
  1         4  
  1         44  
8              
9 1     1   10 use vars qw(@ISA);
  1         2  
  1         64  
10              
11             @ISA = qw(Games::LMSolve);
12              
13 1     1   6 use Games::LMSolve::Alice;
  1         3  
  1         41  
14 1     1   632 use Games::LMSolve::Minotaur;
  1         2  
  1         51  
15 1     1   9 use Games::LMSolve::Numbers;
  1         2  
  1         34  
16 1     1   6 use Games::LMSolve::Plank::Base;
  1         1  
  1         32  
17 1     1   5 use Games::LMSolve::Tilt::Single;
  1         2  
  1         30  
18 1     1   5 use Games::LMSolve::Tilt::Multi;
  1         4  
  1         43  
19 1     1   7 use Games::LMSolve::Tilt::RedBlue;
  1         2  
  1         32  
20 1     1   6 use Games::LMSolve::Plank::Hex;
  1         2  
  1         116  
21              
22              
23             sub register_all_solvers
24             {
25 0     0 1   my $self = shift;
26 0           $self->register_solvers(
27             {
28             'alice' => "Games::LMSolve::Alice",
29             'minotaur' => "Games::LMSolve::Minotaur",
30             'numbers' => "Games::LMSolve::Numbers",
31             'plank' => "Games::LMSolve::Plank::Base",
32             'hex_plank' => "Games::LMSolve::Plank::Hex",
33             'tilt_single' => "Games::LMSolve::Tilt::Single",
34             'tilt_multi' => "Games::LMSolve::Tilt::Multi",
35             'tilt_rb' => "Games::LMSolve::Tilt::RedBlue",
36             'tilt_puzzle' => "Games::LMSolve::Tilt::RedBlue",
37             }
38             );
39              
40 0           $self->set_default_variant("minotaur");
41              
42 0           return 0;
43             }
44              
45             1;
46              
47             __END__