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.2402';
3 1     1   535 use strict;
  1         2  
  1         31  
4 1     1   6 use warnings;
  1         2  
  1         27  
5              
6 1     1   5 use parent 'Games::Solitaire::Verify::Solution::ExpandMultiCardMoves';
  1         2  
  1         6  
7              
8              
9             sub _assign_read_new_state
10             {
11 217     217   461 my ( $self, $str ) = @_;
12              
13 217 100       591 if ( !defined( $self->_st() ) )
14             {
15             $self->_st(
16             Games::Solitaire::Verify::State->new(
17             {
18             string => $str,
19 1         3 @{ $self->_V },
  1         11  
20             }
21             )
22             );
23             }
24              
25 217         496 return;
26             }
27              
28              
29             1; # End of Games::Solitaire::Verify::Solution::ExpandMultiCardMoves::Lax
30              
31             __END__