sepl

   1 #!/usr/bin/env perl
   2
   3 use Sepia::ReadLine;
   4 use Getopt::Long;
   5
   6 sub usage
   7 {
   8     print STDERR <<EOS;
   9 Usage: $0 [options]
  10   -h,--help    Display help and exit.
  11   -v,--version Display version information.
  12 EOS
  13     exit;
  14 }
  15
  16 GetOptions(help => \&usage,
  17            version => sub {
  18                print STDERR "Sepia version $Sepia::VERSION.\n"; exit },
  19        ) or usage;
  20 repl();
  21 print "\n";
  22
  23 __END__
  24
  25 =head1 NAME
  26
  27 sepl -- a Term::ReadLine-based Sepia interactive shell.
  28
  29 =head1 SYNOPSIS
  30
  31     $ sepl
  32     Type ",h" for help, or ",q" to quit.
  33     main @> substr "hello, japh", 7
  34     'japh'
  35     main @>
  36
  37 =head1 DESCRIPTION
  38
  39 =cut