File Coverage

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

Criterion	Covered	Total	%
statement	20	20	100.0
branch	6	6	100.0
condition	5	6	83.3
subroutine	6	6	100.0
pod	3	3	100.0
total	40	41	97.5

use strict;
use warnings;

package Games::Bowling::Scorecard::Frame::TenPinTenth;
{
  $Games::Bowling::Scorecard::Frame::TenPinTenth::VERSION = '0.105';
}
use parent qw(Games::Bowling::Scorecard::Frame);
# ABSTRACT: ten pin's weird 10th frame


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

  my @balls = $self->balls;

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


sub is_pending {
  return 0;
}


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;
  }
}

300;

__END__