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; |