my %handlers = (
    ContentHandler => {
        '/' => sub { $self->{object}->Event() },
       #'/' => sub { $self->{object}->Event(@_) },
    },
);

my $cb = $handlers{ContentHandler};
... = $cb->();
#... = $cb->(...);