NAME

Poker::Game::CrazyPineapple - Crazy Pineapple

VERSION

Version 0.12

SYNOPSIS

use Poker::Game::CrazyPineapple;

my $game = Poker::Game::CrazyPineapple->new;
my $hero = $game->deal_hole(['As', 'Kd', '7c']);

$game->flop(['Ah', 'Kc', '2d']);
# Must discard one hole card before turn/runout
$game->discard($hero, '7c');

$game->turn('9s');
$game->river('3c');
$game->evaluate($hero);

DESCRIPTION

Crazy Pineapple: three hole cards, five community cards. After the flop each player discards one hole card. runout, turn, and river are blocked until discard has been called (via pending_discards).

flop

Deals the flop and sets pending_discards so further board cards are blocked until discard is called.

discard

$game->discard($hand, '7c');       # by card name
$game->discard($hand, $card_obj); # by Poker::Card

Remove one hole card from $hand and clear the pending-discard flag.

AUTHOR

Nathaniel Graham, <ngraham at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2016-2026 Nathaniel Graham.