File Coverage

blib/lib/Games/Solitaire/Verify/Solution/ExpandMultiCardMoves/Lax.pm
Criterion Covered Total %
statement 14 14 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Games::Solitaire::Verify::Solution::ExpandMultiCardMoves::Lax;
2             $Games::Solitaire::Verify::Solution::ExpandMultiCardMoves::Lax::VERSION = '0.2601';
3 2     2   395159 use strict;
  2         7  
  2         89  
4 2     2   12 use warnings;
  2         6  
  2         151  
5              
6 2     2   13 use parent 'Games::Solitaire::Verify::Solution::ExpandMultiCardMoves';
  2         4  
  2         25  
7              
8              
9             sub _assign_read_new_state
10             {
11 217     217   554 my ( $self, $str ) = @_;
12              
13 217 100       735 if ( !defined( $self->_st() ) )
14             {
15             $self->_st(
16             Games::Solitaire::Verify::State->new(
17             {
18             string => $str,
19 1         3 @{ $self->_V },
  1         12  
20             }
21             )
22             );
23             }
24              
25 217         545 return;
26             }
27              
28              
29             1; # End of Games::Solitaire::Verify::Solution::ExpandMultiCardMoves::Lax
30              
31             __END__