- my $cgi = $ctx->{cgi};
- my $base_url;
- my $scheme;
- if (ref($cgi) eq 'CGI') {
- $base_url = $cgi->url(-base) . '/';
- $scheme = $cgi->protocol;
- } else { # Plack::Request
- $base_url = $cgi->base->as_string;
- $scheme = $cgi->env->{'psgi.url_scheme'};
- }