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