Games::Battleship::Craft

游戏::战舰::工艺是战​​舰工艺一流。
概要
  使用游戏::战舰::工艺;
  我的手艺$ = ::游戏::战舰Craft->新（
      ID =>'T'，
      NAME =>'拖船'，
      点=> 1，
  ）
  $ points_remaining = $ craft->命中;
游戏::战舰::工艺对象代表战舰的轮廓
公共方法
新％ARGUMENTS
ID => $ STRING
标量标识符用来表示对电网的位置。如果未提供，则大写的名字字符将被默认使用。
目前，它是必需的，这是一个单一的大写字母（工艺名字的第一个字母，可能），因为命中将由“lowercasing”这对玩家的网格标记来指示。
名称=> $ STRING
提供必需属性给工艺的名称。
点=> $ NUMBER
一个属性用于定义播放网格线段跨度。
位置=> [$ X，$ Y]
工艺弓（“鼻子”），对电网的位置。
目前，该工艺被认为具有水平或垂直取向。很快就会有角的定位...
撞
  $ points_remaining = $ craft->命中;
增加工艺的命中属性值，并返回还剩下什么手艺（总点值减去命中数）

要求：

• 的Perl