[scpubgit/App-EzPz.git] / lib / App / EzPz / EzmlmConfig.pm

package App::EzPz::EzmlmConfig;

use IO::All;
use Module::Runtime qw(use_module);
use Moo;

has bindir => (
  is => 'ro', required => 1,
);

has list_base_dir => (
  is => 'ro', required => 1,
);

sub new_list_object {
  my ($self, $args) = @_;
  my $list_dir = io->dir($self->list_base_dir)->catdir($args->{list_name});
  use_module('Email::EzPz::List')->new(
    list_dir => $list_dir,
    ezmlm_bindir => $self->bindir,
  );
}

1;
Commit	Line	Data
fda55d3e	1	package App::EzPz::EzmlmConfig;
	2
	3	use IO::All;
	4	use Module::Runtime qw(use_module);
	5	use Moo;
	6
	7	has bindir => (
	8	is => 'ro', required => 1,
	9	);
	10
	11	has list_base_dir => (
	12	is => 'ro', required => 1,
	13	);
	14
	15	sub new_list_object {
	16	my ($self, $args) = @_;
	17	my $list_dir = io->dir($self->list_base_dir)->catdir($args->{list_name});
	18	use_module('Email::EzPz::List')->new(
	19	list_dir => $list_dir,
	20	ezmlm_bindir => $self->bindir,
	21	);
	22	}
	23
	24	1;