File Coverage

blib/lib/Poker/Eval/Bitch.pm

Criterion	Covered	Total	%
statement	3	11	27.2
branch	0	2	0.0
condition			n/a
subroutine	1	3	33.3
pod			n/a
total	4	16	25.0

package Poker::Eval::Bitch;
use Moo;

=head1 NAME

Poker::Eval::Bitch - Evaluate and score hole cards in the game of Bitch.

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';


=head1 INTRODUCTION

"The Bitch" typically refers to the Queen of Spades. Half the pot goes to the player holding the bitch at the end of the game. It's a poker game, folks, so don't get all politically correct on me.

=head1 SYNOPSIS

See Poker::Eval for example code.

=cut

extends 'Poker::Eval';

has 'bitch_card' => (
  is      => 'rw',
  builder => '_build_bitch_card',
);

sub _build_bitch_card { # The Bitch
  return 'Qs';
}

sub best_hand {
  my ( $self, $hole ) = @_;
  my $hand = Poker::Hand->new(cards => $hole);
  for my $card (@$hole) {
    if ($card->rank . $card->suit eq $self->bitch_card) {
      $hand->score(100);
      return $hand;
    }
  }
  return $hand;
}

=head1 AUTHOR

Nathaniel Graham, C<<  >>

=head1 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:

L

=cut

1;