Beam Emitter只读发布历史

Beam::Emitter-事件发射类的角色

版本0.007

package My::Emitter;
use Moo;
with'Beam::Emitter';
sub do_something{
my($self)=@_;
#给事件监听器机会来阻止某些操作
my$event=$self->emit("before_something");
return if$event->is_default_stopped;
#执行某些操作
#通知监听器操作完成
$self->emit('after_something');
}