#!perl
package foo;
use common::sense;
use base qw/Object::Event/;
sub new {
   my $this  = shift;
   my $class = ref($this) || $this;
   $class->SUPER::new (@_);
}
our $cnt;
sub test : event_cb { $cnt++ }
package main;
use common::sense;
use Benchmark qw/:all/;
my $f = foo->new;
for (1..10) {
   $f->reg_cb (test => sub {
      my ($f) = @_;
      $foo::cnt++;
   });
}
my $ev;
timethese (250000, {
   simple => sub { $f->event ('test') },
   method => sub { $f->test }
});
print "$foo::cnt\n";