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