File Coverage

lib/Haineko/Default.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition 2 2 100.0
subroutine 4 4 100.0
pod 2 2 100.0
total 22 22 100.0


line stmt bran cond sub pod time code
1             package Haineko::Default;
2 11     11   5218 use strict;
  11         24  
  11         585  
3 11     11   64 use warnings;
  11         23  
  11         2055  
4              
5             sub conf {
6             return {
7 31     31 1 1640 'smtpd' => {
8             'hostname' => '', # used at EHLO
9             'max_message_size' => 4194304, # 4KB
10             'max_rcpts_per_message' => 4, # 4 recipients
11             'max_workers' => 4, # 4 worker processes
12             'milter' => {
13             'libs' => [],
14             },
15             'syslog' => {
16             'disabled' => 1,
17             'facility' => 'local2',
18             },
19             },
20             };
21             }
22              
23             sub table {
24 40     40 1 73 my $class = shift;
25 40   100     105 my $argvs = shift || return undef;
26 39         304 my $table = {
27             'mailer' => {
28             'mail' => 'sendermt',
29             'auth' => 'authinfo',
30             'rcpt' => 'mailertable',
31             },
32             'access' => {
33             'conn' => 'relayhosts',
34             'rcpt' => 'recipients',
35             },
36             };
37              
38 39 100       281 return $table->{ $argvs } if exists $table->{ $argvs };
39 1         6 return undef;
40             }
41              
42             1;
43             __END__