Stuff

sub module {
    my $conn = shift;
    my $event = shift;

    foreach my $module (keys %{ $modules{$event->type} }) {
        if (($event->args)[0] =~ $module) {
            &$module::$event->type($event);
            last;
        }
    }
}