sub handler(&@) {
        my ($event_ctor, @args) = @_;
        return sub {
            my $event = $event_ctor->(@args);
            return $event->trigger(@_);
        };
    }