Lines Matching refs:rel
184 sub rel {
187 my $rel = $self->clone;
190 #my($scheme, $auth, $path) = @{$rel}{qw(scheme authority path)};
191 my $scheme = $rel->scheme;
192 my $auth = $rel->canonical->authority;
193 my $path = $rel->path;
197 return $rel;
211 return $rel;
217 $rel->scheme(undef);
218 $rel->authority(undef);
235 defined($rel->fragment) &&
236 !defined($rel->query)) {
237 $rel->path("");
243 $rel->path($path);
246 $rel;