bin/ezpz-repl

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