sub send { my $self = shift; return unless $self->queued; my $s = $self->smtp; $s->connected->then( sub { $s->login( user => $self->smtp_user, pass => $self->smtp_password, ); } )->get;