File Coverage

blib/lib/Poker/Eval/HighSuit.pm
Criterion Covered Total %
statement 3 6 50.0
branch n/a
condition n/a
subroutine 1 3 33.3
pod n/a
total 4 9 44.4


line stmt bran cond sub pod time code
1             package Poker::Eval::HighSuit;
2 1     1   1893 use Moo;
  1         2  
  1         6  
3              
4             =head1 NAME
5              
6             Poker::Eval::HighSuit - Calculate the highest card of a specific suit.
7              
8             =head1 VERSION
9              
10             Version 0.01
11              
12             =cut
13              
14             our $VERSION = '0.01';
15              
16              
17             =head1 INTRODUCTION
18              
19             Useful in split-pot games like High Chicago where half the pot goes to the player with the highest Spade.
20              
21             =cut
22              
23             extends 'Poker::Eval';
24              
25             has 'high_suit' => (
26             is => 'rw',
27             builder => '_build_high_suit',
28             );
29              
30             sub _build_high_suit { # High Chicago
31 0     0     return 's';
32             }
33              
34             sub best_hand {
35 0     0     my ( $self, $hole ) = @_;
36 0           return $self->scorer->score($hole, $self->high_suit);
37             }
38              
39             =head1 AUTHOR
40              
41             Nathaniel Graham, C<< >>
42              
43             =head1 LICENSE AND COPYRIGHT
44              
45             Copyright 2016 Nathaniel Graham.
46              
47             This program is free software; you can redistribute it and/or modify it
48             under the terms of the the Artistic License (2.0). You may obtain a
49             copy of the full license at:
50              
51             L
52              
53             =cut
54              
55             1;