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