Games::Battleship::Craft is a Battleship craft class.
SYNOPSIS
use Games::Battleship::Craft;
my $craft = Games::Battleship::Craft->new(
id => 'T',
name => 'tug boat',
points => 1,
)
$points_remaining = $craft->hit;
A Games::Battleship::Craft object represents the profile of a Battleship
PUBLIC METHODS
new %ARGUMENTS
id => $STRING
A scalar identifier to use to indicate position on the grid. If one is not provided, the uppercased first name character will be used by default.
Currently, it is required that this be a single uppercase letter (the first letter of the craft name, probably), since a hit will be indicated by "lowercasing" this mark on a player grid.
name => $STRING
A required attribute provided to give the craft a name.
points => $NUMBER
An attribute used to define the line segment span on the playing grid.
position => [$X, $Y]
The position of the craft bow ("nose") on the grid.
Currently, the craft is assumed to have a horizontal or vertical alignment. Soon there will be diagonal positioning...
hit
$points_remaining = $craft->hit;
Increment the craft's hit attribute value and return what's left of the craft (total point value minus the number of hits).
Requirements:
- Perl
Comments not found