ちょっと気になることがあったので実験。プラグインの開発中に、同じコールバックが重複して呼ばれていたような気がしたので。
package MT::Plugin::OMV::CallbackTest; use base qw( MT::Plugin ); my $plugin = __PACKAGE__->new({ name => __PACKAGE__, }); MT->add_plugin ($plugin); sub init_registry { my $plugin = shift; $plugin->registry({ callbacks => { 'MT::Entry::post_save' => &_hdlr_registry, }, }); } sub _hdlr_registry { if (open (my $fh, ">>/tmp/debug.txt")) { print $fh "1 "; close $fh; } } MT::Entry->add_callback ('post_save', 5, $plugin, &_hdlr_callback); sub _hdlr_callback { if (open (my $fh, ">>/tmp/debug.txt")) { print $fh "2 "; close $fh; } } 1;