Games::Blackjack 0.04

Games::Blackjack is a Perl module with Blackjack Utility Classes.

SYNOPSIS

use Games::Blackjack;

# Create new shoe of cards
my $shoe = Games::Blackjack::Shoe->new(nof_decks => 4);

# Create two hands, player/dealer
my $player = Games::Blackjack::Hand->new(shoe => $shoe);
my $dealer = Games::Blackjack::Hand->new(shoe => $shoe);

# Two dealer cards
$dealer->draw();
print "Dealer: ", $dealer->as_string(), "n";
$dealer->draw(); # 2nd card not shown

$player->draw();
$player->draw();
print "Player: ", $player->as_string, "(",
$player->count_as_string, ")n";

# Lets assume player decides to stand. Dealers turn.

# Dealer plays Las Vegas rules
while(!$dealer->busted() and
$dealer->count("soft") < 17) {
$dealer->draw();
}

# Show winner (-1: Dealer, 1: Player, 1.5: Player Blackjack)
print "Player score: ", $player->score($dealer), "n";