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