From 8884f5a878a6dac4e4540f6caf2c64e09225d461 Mon Sep 17 00:00:00 2001
From: Shiar <shiar@shiar.org>
Date: Thu, 17 Jan 2008 05:34:37 +0000
Subject: [PATCH] screp --version|--help

Simple version and usage options for screp tool.
Also allow single-char options bundled (i.e. -va for -v -a).
---
 screp | 26 +++++++++++++++++++++++++-
 1 file changed, 25 insertions(+), 1 deletion(-)

diff --git a/screp b/screp
index dbd264c..edf643e 100755
--- a/screp
+++ b/screp
@@ -3,10 +3,12 @@ use strict;
 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,
@@ -615,3 +617,25 @@ if ($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
+
-- 
2.30.0