File Coverage

lib/Haineko/SMTPD/Relay/Discard.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch			n/a
condition	1	3	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	38	40	95.0

package Haineko::SMTPD::Relay::Discard;
use parent 'Haineko::SMTPD::Relay';
use strict;
use warnings;
use Time::Piece;
use Haineko::SMTPD::Response;

sub new {
    my $class = shift;
    my $argvs = { @_ };

    $argvs->{'time'}  ||= Time::Piece->new;
    $argvs->{'retry'}   = 0;
    $argvs->{'sleep'}   = 0;
    $argvs->{'timeout'} = 0;
    $argvs->{'startls'} = 0;
    return bless $argvs, __PACKAGE__;
}

sub sendmail {
    my $self = shift;

    $self->response( Haineko::SMTPD::Response->r( 'data', 'discard' ) );
    $self->response->rcpt( $self->{'rcpt'} );
    $self->response->mailer('Discard');
    return 1;
}

1;
__END__