lib/App/EzPz/EzmlmConfig.pm

   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;