Simple version and usage options for screp tool.
Also allow single-char options bundled (i.e. -va for -v -a).
use warnings;
use Data::Dumper;
+our $VERSION = '1.00';
+
my $SHOWWARN = 0;
my $APMSVG = undef;
-use Getopt::Long;
+use Getopt::Long qw(:config bundling auto_version auto_help);
GetOptions(
"verbose|v!" => \$SHOWWARN,
"apm|a=s" => \$APMSVG,
print $apmfile $svg;
}
+__END__
+
+=head1 NAME
+
+screp - StarCraft replay parser
+
+=head1 SYNOPSIS
+
+screp [options] < [replay data]
+
+ Options:
+ --verbose
+ --apm
+
+=head1 OPTIONS
+
+=head1 AUTHOR
+
+Mischa POSLAWSKY <perl@shiar.org>
+
+=head1 STUFF
+