File Coverage

blib/lib/Games/Tournament/BlackJack/Player/DealerPlayer.pm

Criterion	Covered	Total	%
statement	9	15	60.0
branch	0	4	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	27	44.4

package Games::Tournament::BlackJack::Player::DealerPlayer;
# dealer player for blackjack
#  -- follows standard vegas casino rules on dealer behavior:
#  --   hit on soft 17 or less, stand on hard 17 or more

use Games::Tournament::BlackJack::Player;
use Games::Tournament::BlackJack::Utilities;
use Exporter;
@ISA = qw(Games::Tournament::BlackJack::Player);


  # decide_simple returns true for hit, false for stand.

sub decide_simple {
   my $self = shift;
   my $hit_threshold = 16; # hit on hard 16 or less
   my $handValue = $self->myHandValue();

   if ($handValue == 17 and $self->isHandSoft()) {
      return 'hit'; # on a soft 17
   }

   # otherwise, hit on hard 16 or less as usual.
   return ($handValue <= $hit_threshold) ? 'hit' : 'stand';
}

1;