Games::Battleship::Craft

遊戲::戰艦::工藝是戰艦工藝一流。
概要
  使用遊戲::戰艦::工藝;
  我的手藝$ = ::遊戲::戰艦Craft->新（
      ID =>'T'，
      NAME =>'拖船'，
      點=> 1，
  ）
  $ points_remaining = $ craft->命中;
遊戲::戰艦::工藝對象代表戰艦的輪廓
公共方法
新％ARGUMENTS
ID => $ STRING
標量標識符用來表示對電網的位置。如果未提供，則大寫的名字字符將被默認使用。
目前，它是必需的，這是一個單一的大寫字母（工藝名字的第一個字母，可能），因為命中將由“lowercasing”這對玩家的網格標記來指示。
名稱=> $ STRING
提供必需屬性給工藝的名稱。
點=> $ NUMBER
一個屬性用於定義播放網格線段跨度。
位置=> [$ X，$ Y]
工藝弓（“鼻子”），對電網的位置。
目前，該工藝被認為具有水平或垂直取向。很快就會有角的定位...
撞
  $ points_remaining = $ craft->命中;
增加工藝的命中屬性值，並返回還剩下什麼手藝（總點值減去命中數）

要求：

• 的Perl