File Coverage

lib/Haineko/SMTPD/Relay.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	0	4	0.0
total	25	29	86.2

package Haineko::SMTPD::Relay;
use strict;
use warnings;
use Class::Accessor::Lite;

my $rwaccessors = [
    'time',     # (Time::Piece)
    'mail',     # (String) Envelope from
    'rcpt',     # (String) Envelope to
    'head',     # (ArrayRef) Email headers
    'body',     # (ScalarRef) Body part
    'attr',     # (HashRef) Email::MIME attributes
    'host',     # (String) Relay server hostname
    'port',     # (String) Relay server port
    'auth',     # (Integer) Rerquire SMTP-AUTH or not
    'retry',    # (Integer) Retry count when an SMTP server returns 4XX.
    'sleep',    # (Integer) Sleep for specified seconds until the next retrying
    'debug',    # (Integer) 1 = Debug mode(Net::SMTP)
    'timeout',  # (Integer) Timeout
    'username', # (String) Username for SMTP-AUTH
    'password', # (String) Password for SMTP-AUTH
    'response', # (Haineko::SMTPD::Response) ESMTP Replies from MTA
    'starttls', # (Integer) use STARTTLS or not
];
my $roaccessors = [];
my $woaccessors = [];
Class::Accessor::Lite->mk_accessors( @$rwaccessors );


sub new {
    my $class = shift;
    my $argvs = { @_ };
    return bless $argvs, __PACKAGE__;
}

sub defaulthub {
    my $class = shift;
    return {
        'host' => '127.0.0.1',
        'port' => 25,
        'auth' => 0,
        'mailer' => 'ESMTP',
    };
}

sub sendmail {
    my $self = shift;
    # Code for sending email at each class in Relay/*.pm
    return 0;
}

sub getbounce {
    my $self = shift;
    # Code for getting email bounce at each class in Relay/*.pm
    return 0;
}

1;
__END__