1 # -*- mode: snippet -*-
6 # ${1:SCRIPTNAME} ${2:SCRIPTDOESSOMETHING}
7 # and is released under the terms of the GNU GPL version 3, or any
8 # later version, at your option. See the file README and COPYING for
10 # Copyright `(format-time-string "%Y")` by Don Armstrong <don@donarmstrong.com>.
28 --debug, -d debugging level (Default 0)
29 --help, -h display this help
30 --man, -m display manual
38 Debug verbosity. (Default 0)
42 Display brief usage information.
59 my %options = (debug => 0,
65 'debug|d+','help|h|?','man|m');
67 pod2usage() if $options{help};
68 pod2usage({verbose=>2}) if $options{man};
70 $DEBUG = $options{debug};
74 push @USAGE_ERRORS,"You must pass something";
77 pod2usage(join("\n",@USAGE_ERRORS)) if @USAGE_ERRORS;
83 # indent-tabs-mode: nil
84 # cperl-indent-level: 4