#!/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');