my $dispatch = {
    'test'  => sub { # ... },
    'debug' => sub { return 1 },
    # ...
}

sub ctrl {
    my $self = shift;
    my $p = shift || 'debug';
    my $ret = $dispatch->{$p}(@_);
    # ...
}