File Coverage

blib/lib/Game/Battleship/Craft.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	1	2	50.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	22	24	91.6

package Game::Battleship::Craft;
$Game::Battleship::Craft::VERSION = '0.0602';
our $AUTHORITY = 'cpan:GENE';

use Carp;
use Moo;
use Types::Standard qw( ArrayRef Int Num Str );

has id => (
    is  => 'ro',
    isa => Str,
);

has name => (
    is  => 'ro',
    isa => Str,
);

has position => (
    is  => 'ro',
    isa => ArrayRef[Num],
);

has orient => (
    is  => 'ro',
    isa => Int,
);

has points => (
    is  => 'ro',
    isa => Int,
);

has hits => (
    is  => 'ro',
    isa => Int,
);

sub BUILD {
    my $self = shift;
    # Default the id to the upper-cased first char of name.
    # XXX This is brittle!
    unless ( $self->id ) {
        $self->{id} = ucfirst substr( $self->{name}, 0, 1 );
    }
}

sub hit {
    my $self = shift;
    # Tally the hit.
    $self->{hits}++;
    # Hand back the remainder of the craft's value.
    return $self->points - $self->hits;
}

1;

__END__