File Coverage

blib/lib/Net/Server/Mail/ESMTP/Extension.pm

Criterion	Covered	Total	%
statement	18	20	90.0
branch			n/a
condition	1	3	33.3
subroutine	8	10	80.0
pod	0	7	0.0
total	27	40	67.5

package Net::Server::Mail::ESMTP::Extension;

use 5.006;
use strict;
use warnings;

our $VERSION = "0.26";

=pod

=head1 NAME

Net::Server::Mail::ESMTP::Extension - The base class for ESMTP extension system

=head1 DESCRIPTION

=cut

sub new {
    my ( $proto, $parent ) = @_;
    my $class = ref $proto || $proto;
    my $self = {};
    bless( $self, $class );
    return $self->init($parent);
}

=pod

=head1 init

  ($self) = $obj->init($parent);

You can override this method to do something at the
initialisation. The method takes the $smtp object as parameter.

=cut

sub init {
    my ( $self, $parent ) = @_;
    return $self;
}

=pod

=head1 verb

=cut

sub verb {
    return ();
}

=pod

=head1 keyword

=cut

sub keyword {
    return 'XNOTOVERLOADED';
}

=pod

=head1 parameter

=cut

sub parameter {
    return ();
}

=pod

=head1 option

=cut

sub option {
    return ();
}

=pod

=head1 reply

=cut

sub reply {
    return ();
}

1;