# and is released under the terms of the GNU GPL version 3, or any
# later version, at your option. See the file README and COPYING for
# more information.
-# Copyright 2013 by Don Armstrong <don@donarmstrong.com>.
+# Copyright 2017 by Don Armstrong <don@donarmstrong.com>.
use warnings;
SCRIPTNAME [options]
Options:
- --debug, -d debugging level (Default 0)
- --help, -h display this help
- --man, -m display manual
+ --debug, -d debugging level (Default 0)
+ --help, -h display this help
+ --man, -m display manual
=head1 OPTIONS
use vars qw($DEBUG);
my %options = (debug => 0,
- help => 0,
- man => 0,
- );
+ help => 0,
+ man => 0,
+ );
GetOptions(\%options,
- 'debug|d+','help|h|?','man|m');
+ 'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
pod2usage({verbose=>2}) if $options{man};
my @USAGE_ERRORS;
if (1) {
- push @USAGE_ERRORS,"You must pass something";
+ push @USAGE_ERRORS,"You must pass something";
}
pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
__END__
+# Local Variables:
+# indent-tabs-mode: nil
+# cperl-indent-level: 4
+# End: