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 C<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 C<sepl> uses L<Sepia::ReadLine> to provide an interactive Perl shell
  40 with many of the L<Sepia> features available in Emacs, including
  41 completion and all shortcuts.  It is not well-tested or frequently
  42 used, and should be considered experimental.
  43
  44 =head1 SEE ALSO
  45
  46 L<Sepia>, L<Term::ReadLine>.
  47
  48 Most of C<Sepia>'s documentation is installed in Emacs' C<info>
  49 format.  On most systems it can be read from the command-line by
  50 typing "C<info sepia>".
  51
  52 =head1 AUTHOR
  53
  54 Sean O'Rourke, E<lt>seano@cpan.orgE<gt>
  55
  56 Bug reports welcome, patches even more welcome.
  57
  58 =head1 COPYRIGHT
  59
  60 Copyright (C) 2010-2011 Sean O'Rourke.  All rights reserved, some
  61 wrongs reversed.  This module is distributed under the same terms as
  62 Perl itself.
  63
  64 =cut