for ( @{ $self->{event} } ) {
     next if ref($_) ne 'CODE';
     &{$_}(@args);
}