Lines Matching refs:path
12 # gopher://<host>[:<port>]/<gopher-path>
16 # <gopher-path> := <gopher-type><selector> |
34 my $path = $self->path_query;
35 $path =~ s,^/,,;
36 my $gtype = $1 if $path =~ s/^(.)//s;
42 substr($path, 0, 0) = $new_type;
43 $self->path_query($path);
46 if length($path);
71 my $path = $self->path_query;
75 $path =~ s/\?/\t/;
76 $path = uri_unescape($path);
77 $path =~ s,^/,,;
78 my $gtype = $1 if $path =~ s,^(.),,s;
79 my @path = split(/\t/, $path, 3);
83 $path[$fno] = $new;
84 pop(@path) while @path && !defined($path[-1]);
85 for (@path) { $_="" unless defined }
86 $path = $gtype;
87 $path = "1" unless defined $path;
88 $path .= join("\t", @path);
89 $self->path_query($path);
91 $path[$fno];