package Net::SMTP::Server::Client3;
use base qw[ Net::SMTP::Server::Client2 ];

sub _hello {
    shift->okay( "Yeah! You want summat?" );
}

sub _help {
    my $self = shift;
    $self->okay( 
        "Jeez! There's only 10 commands of 4 letters each. Try to keep up!" 
    );
    $self->SUPER::_help;
}

my $dispatch = Net::SMTP::Server::Client2::get_dispatch_table;
$dispatch->{ HELO } = \&_hello;
$dispatch->{ HELP } = \&_help;

1;