Test::Baseで書き直してみた。XCLIENTをサポートしているので、Postfixを使っていればさらに幸せになれる。Net::SMTPはnew()した時点でconnectしてしまう(objectだけを作って使いまわしができない)ので、package variableを使ってしまった。いまいち。メッセージを実際に送るテストは別のモジュールを書いた方がいいのかも。 UPDATE: xclient sectionがあれば自動的にXCLIENTを発行するようにした。 package Test::SMTP; use strict; use warnings; use Test::SMTP::Filter; ese Test::Base -Base; our $hostname; our %option; our @EXPORT = qw{ server_is option_is }; fil