[scpubgit/App-EzPz.git] / bin / ezpz-repl

#!/usr/bin/env perl

use lib (-d 'lib' ? ('lib') : ());
use File::Which;
use Email::EzPz::List;
use strictures 1;

die "Usage: ezpz-repl ezmlm-bindir list-dir"
  unless @ARGV == 2;

{
  package Eval::WithLexicals::Scratchpad;

  use vars qw($list);

  $list = Email::EzPz::List->new(
    ezmlm_bindir => $ARGV[0],
    list_dir => $ARGV[1],
  );
}

do +which('tinyrepl');

exit 0;
Commit	Line	Data
c5f4b6d4	1	#!/usr/bin/env perl
c5f4b6d4	2
778d3118	3	use lib (-d 'lib' ? ('lib') : ());
c5f4b6d4	4	use File::Which;
	5	use Email::EzPz::List;
	6	use strictures 1;
	7
db50b585	8	die "Usage: ezpz-repl ezmlm-bindir list-dir"
	9	unless @ARGV == 2;
	10
c5f4b6d4	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;