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

#!/usr/bin/env perl

use File::Which;
use Email::EzPz::List;
use strictures 1;

{
  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
	2
	3	use File::Which;
	4	use Email::EzPz::List;
	5	use strictures 1;
	6
	7	{
	8	package Eval::WithLexicals::Scratchpad;
	9
	10	use vars qw($list);
	11
	12	$list = Email::EzPz::List->new(
	13	ezmlm_bindir => $ARGV[0],
	14	list_dir => $ARGV[1],
	15	);
	16	}
	17
	18	do +which('tinyrepl');
	19
	20	exit 0;