#!perl # Taken from http://www.chrisdolan.net/talk/index.php/2005/11/14/private-regression-tests/. use warnings; use strict; use Test::Distribution distversion => 1; # setup nethack: set filetype=perl tabstop=4 softtabstop=4 expandtab : # setup nethack: set shiftwidth=4 shiftround textwidth=0 nowrap autoindent : # setup nethack: set foldmethod=indent foldlevel=0 :