File Coverage

blib/lib/Poker/Score/Bring/Low.pm
Criterion Covered Total %
statement 4 6 66.6
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 6 8 75.0


line stmt bran cond sub pod time code
1             package Poker::Score::Bring::Low;
2 1     1   1758 use Moo;
  1         2  
  1         6  
3 1     1   654 use Algorithm::Combinatorics qw(combinations);
  0            
  0            
4             use List::Util qw(max);
5              
6             =head1 NAME
7              
8             Poker::Score::Bring::Low - Scoring system used in lowball Stud to decide which player starts the action.
9              
10             =head1 VERSION
11              
12             Version 0.01
13              
14             =cut
15              
16             our $VERSION = '0.01';
17              
18             =head1 SYNOPSIS
19              
20             See Poker::Score for code example.
21              
22             =cut
23              
24              
25             extends 'Poker::Score::Bring::High';
26              
27             after _build_hands => sub {
28             my $self = shift;
29             $self->hands( [ reverse @{ $self->hands } ] );
30             };
31              
32             =head1 AUTHOR
33              
34             Nathaniel Graham, C<< >>
35              
36             =head1 LICENSE AND COPYRIGHT
37              
38             Copyright 2016 Nathaniel Graham.
39              
40             This program is free software; you can redistribute it and/or modify it
41             under the terms of the the Artistic License (2.0). You may obtain a
42             copy of the full license at:
43              
44             L
45              
46             =cut
47              
48             1;