Net :: SMTP模块有时会返回一个空字符串

Question

我发送邮件从Net::SMTP module的地址到邮件功能，但邮件函数有时会返回空字符串而不是Undef（错误）：

$feeder->mail( $mailfrom );->This line invoking mail function of Net::SMTP 
                          module

      sub mail {-> this subroutine belongs to Net::SMTP module
                my $me   = shift;
                my $addr = _addr($me, shift);
                my $opts = "";

                if (@_) {
                        }
                $me->_MAIL("FROM:" . $addr . $opts);
              }
 sub _MAIL { shift->command("MAIL", @_)->response() == CMD_OK }-> Here _MAIL 
                             function invoking command function of Net::Cmd