has log_dispatch_conf => (
    is => 'ro',
    isa => 'HashRef',
    lazy => 1,
    required => 1,
    default => sub {
      return {
	    class => 'Log::Dispatch::File',
	    min_level => 'debug',
	    filename => $self->config->{mail_log_file},
	    mode => '>>',
	    newline => 1,
	    format => '[%d] [%p] %m at %F line %L%n',
	};
   },
);

##</code><code>##

has 'logger' => (
    is => 'ro',
    isa => 'Log::Dispatch',
    required => 1,
    lazy => 1,
    default => sub { return
			 Log::Dispatch->new(
			     outputs => [
				 [ 'File',
				   min_level => 'debug',
				   filename => $self->config->{mail_log_file},
				   mode => '>>',
				   newline => 1,
				   format => '[%d] [%p] %m at %F line %L%n',
			       ],
# ....