Select Code to Download

#! perl
use strict;
...
$board[1][2]->is_threatened(7);        # OK:            7   is     an 
+'Int'
dd @board;
$board[3][4]->is_threatened('foo');    # Runtime error: foo is not an 
+'Int'