sub cgiapp_dispatch {
    my $self = shift;
    my $mode = $self->parse_path_info();
    return $self->cgiapp_protect ($mode)
        if $self->can('cgiapp_protect');
    return $mode;
}