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]);
});

Published: 2012-07-31(Tue) 06:29