parse-debug utility

[pandemic-rising-tide.git] / parse-debug

diff --git a/parse-debug b/parse-debug
new file mode 100755 (executable)
index 0000000..e02a1d3
--- /dev/null
+++ b/parse-debug
@@ -0,0 +1,15 @@
+#!/usr/bin/perl -w
+
+use strict;
+use Carp;
+use Data::Dumper;
+
+BEGIN { unshift @INC, qw(.); }
+
+use Parse;
+
+die if @ARGV;
+
+parse_input_graph();
+
+print Dumper(\%region);