.svn/pristine/c6/c6de82ace4965920900adfcc6a828089f41f39be.svn-base

   1 #! /usr/bin/perl
   2 # This program is part of da_reference, and is released under the
   3 # terms of the GPL version 2, or any later version, at your
   4 # option. See the file README and COPYING for more information.
   5 # Copyright 2004 by Don Armstrong <don@donarmstrong.com>.
   6 # $Id$
   7
   8
   9 use warnings;
  10 use strict;
  11
  12
  13 use Getopt::Long;
  14 use Pod::Usage;
  15
  16 =head1 NAME
  17
  18 foo -
  19
  20 =head1 SYNOPSIS
  21
  22 foo [options]
  23
  24  Options:
  25   --debug, -d debugging level (Default 0)
  26   --help,-h display this help
  27   --man,-m display manual
  28
  29 =head1 OPTIONS
  30
  31 =over
  32
  33 =item B<--debug, -d>
  34
  35 Debug verbosity. (Default 0)
  36
  37 =item B<--help, -h>
  38
  39 Display brief useage information.
  40
  41 =item B<--man, -m>
  42
  43 Display this manual.
  44
  45 =back
  46
  47 =head1 EXAMPLES
  48
  49
  50 =cut
  51
  52
  53
  54 use vars qw($DEBUG);
  55
  56 my %options = (debug  => 0,
  57                help   => 0,
  58                man    => 0,
  59               );
  60
  61 GetOptions(\%options,'debug|d','help|h','man|m');
  62
  63 pod2usage() if $options{help};
  64 pod2usage({verbose=>2}) if $options{man};
  65
  66 $DEBUG = $options{debug};
  67
  68
  69
  70 __END__