NAME

Games::Poker::Omaha::Hutchison - Hutchison method for scoring Omaha hands

SYNOPSIS

my $evaluator = Games::Poker::Omaha::Hutchison->new("Ah Qd 3s 1d");

my $score = $evaluator->hand_score;

DESCRIPTION

This module implements the Hutchison Omaha Point System for evaluating starting hands in Omaha poker, as described at http://www.thepokerforum.com/omahasystem.htm

CONSTRUCTOR

new

my $evaluator = Games::Poker::Omaha::Hutchison->new("Ah Qd Ts 3d");

This takes 4 cards, expresed as a single string. The 'pip value' of the card should be 2-9,T,J,Q,K or A, and the suit, of course, s, h, c or d.

METHODS

hand_score

my $score = $evaluator->hand_score;

This returns the number of points assigned to the hand by this System. This figure is roughly equivalent to the percentage chance of this turning into a winning hand in a 10 player game, where each player plays until the end. See the URL above for more information.

flush_score / pair_score / straight_score

The final hand_score() is made up from three component scores, for suited cards, paired cards, and straight cards. These component scores can also be accessed individually.

AUTHOR

Tony Bowden, based on the rules created by Edward Hutchison.

BUGS and QUERIES

Please direct all correspondence regarding this module to: bug-Games-Poker-Omaha-Hutchison@rt.cpan.org

COPYRIGHT AND LICENSE

Copyright (C) 2004-2005 Tony Bowden.

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License; either version
2 of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

SEE ALSO

This is based on the version at http://www.thepokerforum.com/omahasystem.htm

An alternative version is available at http://erh.homestead.com/omaha.html