From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
sub validate {
my $self = shift;
my @options = $self->parsed_options;
return $self->bad_command("Too many options") if @options;
return 1;
}
sub run {
my $self = shift;
$self->untagged_response('BYE Ok. I love you. Buhbye!');
$self->ok_completed();
$self->connection->close();
}
sub poll_after { 0 }
1;