File Coverage

blib/lib/Games/Bowling/Scorecard/Frame/TenPinTenth.pm

Criterion	Covered	Total	%
statement	19	25	76.0
branch	6	10	60.0
condition	6	6	100.0
subroutine	6	7	85.7
pod	3	3	100.0
total	40	51	78.4

use v5.24.0;
use warnings;

package Games::Bowling::Scorecard::Frame::TenPinTenth 0.106;
use parent qw(Games::Bowling::Scorecard::Frame);
# ABSTRACT: ten pin's weird 10th frame

#pod =head1 DESCRIPTION
#pod
#pod The tenth frame of ten pin bowling is weird.  If you bowl a strike or spare,
#pod you're allowed to throw balls to complete the frame's scoring.  The extra balls
#pod are only counted for bonus points.  In other words, if the first two balls in
#pod the tenth frame are strikes, the second ball is not counted as a "pending"
#pod strike.  If this is confusing, don't worry!  That's why you're using this
#pod module.
#pod
#pod =method is_done
#pod
#pod The tenth frame is done if: (a) three balls have been bowled or (b) two balls
#pod have been bowled, totalling less than ten.
#pod
#pod =cut

sub is_done {
  my ($self) = @_;

  my @balls = $self->balls;

  return 1 if @balls == 3 or @balls == 2 and $balls[0] + $balls[1] < 10;
  return;
}

#pod =method is_pending
#pod
#pod The tenth frame is never pending.  Once it's done, its score is final.
#pod
#pod =cut

sub is_pending {
  return 0;
}

#pod =method roll_ok
#pod
#pod The tenth frame's C is identical to the standard C, but
#pod replaces the "can't total more than 10" rule with a more complex rule.
#pod
#pod =cut

sub roll_ok {
  my ($self, $ball) = @_;

  eval { $self->SUPER::roll_ok($ball) };

  if (my $error = $@) {
    return if $error =~ /would bring the frame above 10/;
    die $error;
  }
}

sub _assert_split_ok {
  my ($self, $ball) = @_;

  if ($self->{balls}->@* > 2) {
    Carp::croak "can't record a split on third ball in tenth frame";
  }

  if ($ball >= 9) {
    Carp::croak "you can't split if you knocked down $ball pins!";
  }

  return;
}


300;

__END__