1package URI::ldapi; 2 3use strict; 4 5use vars qw(@ISA); 6 7require URI::_generic; 8require URI::_ldap; 9@ISA=qw(URI::_ldap URI::_generic); 10 11require URI::Escape; 12 13sub un_path { 14 my $self = shift; 15 my $old = URI::Escape::uri_unescape($self->authority); 16 if (@_) { 17 my $p = shift; 18 $p =~ s/:/%3A/g; 19 $p =~ s/\@/%40/g; 20 $self->authority($p); 21 } 22 return $old; 23} 24 25sub _nonldap_canonical { 26 my $self = shift; 27 $self->URI::_generic::canonical(@_); 28} 29 301; 31