Lines Matching defs:authority
15 sub authority
72 if ($pre =~ m,/,) { # authority present
139 $abs->authority($base->authority);
190 #my($scheme, $auth, $path) = @{$rel}{qw(scheme authority path)};
192 my $auth = $rel->canonical->authority;
200 #my($bscheme, $bauth, $bpath) = @{$base}{qw(scheme authority path)};
202 my $bauth = $base->canonical->authority;
216 # Make it relative by eliminating scheme and authority
218 $rel->authority(undef);