The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Poker::Dealer - Simple class to represent a poker dealer

VERSION

Version 0.01

SYNOPSIS

    use Poker::Dealer;

    my $dealer = Poker::Dealer->new;

    $dealer->shuffle_deck;

    # Returns an array_ref of face-up card objects
    my $cards = $dealer->deal_up(4);

    # Returns an array_ref of face-down card objects
    my $cards = $dealer->deal_down(5);

    # Deal yourself two aces:
    my $cards = $dealer->deal_named(['As', 'Ah']);

SUBROUTINES/METHODS

shuffle_deck

Creates a new deck and randomizes the cards.

reshuffle

Shuffles cards in the discard pile and adds them to the existing deck.

deal_down

Returns an array_ref of Poker::Card objects face down

deal_up

Returns an array_ref of Poker::Card objects face up

deal_named

Fetch a specific set of cards from the deck.

AUTHOR

Nathaniel Graham, <ngraham at cpan.org>

LICENSE AND COPYRIGHT

Copyright 2016 Nathaniel Graham.

This program is free software; you can redistribute it and/or modify it under the terms of the the Artistic License (2.0). You may obtain a copy of the full license at:

http://www.perlfoundation.org/artistic_license_2_0