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

##</code><code>##

print "---START---\n";
for ( @{ $self->{event} } ) {
     print STDERR $self->{name}." => $_\n";
     next if ref($_) ne 'CODE';
     &{$_}(@args);
}

##</code><code>##

---START---
help.search => CODE(0x9bcb9b0)
help.search => CODE(0xa2f8618)
---START---
help.search => -f
help.search => CODE(0xa2f8618)

##</code><code>##

print "---START---\n";
for my $item ( @{ $self->{event} } ) {
     print STDERR $self->{name}." => $item\n";
     next if ref($item) ne 'CODE';
     &{$item}(@args);
}

##</code><code>##

---START---
help.search => CODE(0x9bcb9b0)
help.search => CODE(0xa2f8618)
---START---
help.search => CODE(0x9bcb9b0)
help.search => CODE(0xa2f8618)