r-edit.pl

   1 #!/usr/bin/perl -w
   2 # $Id$
   3 use strict;
   4 require v5.10.0;
   5 our $VERSION = 'v0.1';
   6
   7 BEGIN
   8 {
   9     my $PROGRAM_DIR = $0;
  10     $PROGRAM_DIR =~ s/[^\/\\]+$//;
  11     $PROGRAM_DIR = "./" unless($PROGRAM_DIR);
  12     unshift @INC,
  13         map "$PROGRAM_DIR$_",qw{modules lib ../modules ..lib};
  14 }
  15
  16 my %OPTS;
  17 my @OPTIONS = qw/help|h|? version|ver edit-me manual|man/;
  18
  19 if(@ARGV)
  20 {
  21     require Getopt::Long;
  22     require MyPlace::Usage;
  23     Getopt::Long::GetOptions(\%OPTS,@OPTIONS);
  24     MyPlace::Usage::Process(\%OPTS,$VERSION);
  25 }
  26 else
  27 {
  28     require MyPlace::Usage;
  29     MyPlace::Usage::PrintHelp();
  30 }
  31
  32
  33 __END__
  34
  35 =pod
  36
  37 =head1  NAME
  38
  39 ___NAME___ - PERL script
  40
  41 =head1  SYNOPSIS
  42
  43 ___NAME___ [options] ...
  44
  45 =head1  OPTIONS
  46
  47 =over 12
  48
  49 =item B<--version>
  50
  51 Print version infomation.
  52
  53 =item B<-h>,B<--help>
  54
  55 Print a brief help message and exits.
  56
  57 =item B<--manual>,B<--man>
  58
  59 View application manual
  60
  61 =item B<--edit-me>
  62
  63 Invoke 'editor' against the source
  64
  65 =back
  66
  67 =head1  DESCRIPTION
  68
  69 ___DESC___
  70
  71 =head1  CHANGELOG
  72
  73     ___DATE___  ___AUTHOR___  <___EMAIL___>
  74
  75         * file created.
  76
  77 =head1  AUTHOR
  78
  79 ___AUTHOR___ <___EMAIL___>
  80
  81 =cut
  82
  83
  84