Net::IMAP::Client の実行経過をトレースする
Class::Method::Modifiers で、それっぽいメソッドをフックすればOK!
use Class::Method::Modifiers qw(install_modifier); use Log::Minimal; install_modifier('Net::IMAP::Client', 'before', '_socket_write', sub { infof("[IMAP] %s", $_[1]); });