bin/ezpz-repl

   1 #!/usr/bin/env perl
   2
   3 use lib (-d 'lib' ? ('lib') : ());
   4 use File::Which;
   5 use Email::EzPz::List;
   6 use strictures 1;
   7
   8 die "Usage: ezpz-repl ezmlm-bindir list-dir"
   9   unless @ARGV == 2;
  10
  11 {
  12   package Eval::WithLexicals::Scratchpad;
  13
  14   use vars qw($list);
  15
  16   $list = Email::EzPz::List->new(
  17     ezmlm_bindir => $ARGV[0],
  18     list_dir => $ARGV[1],
  19   );
  20 }
  21
  22 do +which('tinyrepl');
  23
  24 exit 0;