Lines Matching defs:script_name
246 ':cgi'=>[qw/param upload path_info path_translated request_uri url self_url script_name
2854 my $script_name = $self->script_name;
2858 my $rewrite_in_use = $request_uri && $request_uri !~ /^\Q$script_name/;
2861 my $uri = $rewrite && $request_uri ? $request_uri : $script_name;
3014 # script_name of /x//y/script.cgi and a path_info of /a//b, but in:
3017 # script_name == /foo/x/z/script.cgi and path_info == /b/c.
3025 my $script_name = $ENV{SCRIPT_NAME} || '';
3032 if ($uri ne "$script_name$path_info") {
3033 my $script_name_pattern = quotemeta($script_name);
3042 ($script_name, $path_info) = ($1, $2);
3045 return ($script_name,$path_info);
3239 #### Method: script_name
3245 'script_name' => <<'END_OF_FUNC',
3246 sub script_name {
3249 $self->{'.script_name'} = shift @p;
3250 } elsif (!exists $self->{'.script_name'}) {
3251 my ($script_name,$path_info) = $self->_name_and_path_from_env();
3252 $self->{'.script_name'} = $script_name;
3254 return $self->{'.script_name'};
7612 =item B<script_name()>