git.shiar.nl
/
perl
/
schtarr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
recognize all tilesets in scmap::world
[perl/schtarr.git]
/
graphplay
diff --git
a/graphplay
b/graphplay
index 9956168612fe29ce5ba3903b1eda95d3a109189e..bbbbc28f98c81af6a25c23a2c8bf12b387d2527f 100755
(executable)
--- a/
graphplay
+++ b/
graphplay
@@
-2,10
+2,17
@@
use strict;
use warnings;
use strict;
use warnings;
+use Getopt::Long 2.33 qw(HelpMessage :config bundling);
use Template;
use List::Util;
use Data::Dumper;
use Template;
use List::Util;
use Data::Dumper;
+our $VERSION = '1.00';
+
+GetOptions(
+ "verbose|v!" => \our $DEBUG,
+) or HelpMessage(-exitval => 2);
+
my %area = (
fieldxmin => 45,
fieldxmax => 1590,
my %area = (
fieldxmin => 45,
fieldxmax => 1590,