package Net::IMAP::Server::Command::Logout; use warnings; use strict; use base qw/Net::IMAP::Server::Command/; 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;