local-lib5/lib/perl5/URI/ldapi.pm

   1 package URI::ldapi;
   2
   3 use strict;
   4
   5 use vars qw(@ISA);
   6
   7 require URI::_generic;
   8 require URI::_ldap;
   9 @ISA=qw(URI::_ldap URI::_generic);
  10
  11 require URI::Escape;
  12
  13 sub 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
  25 sub _nonldap_canonical {
  26     my $self = shift;
  27     $self->URI::_generic::canonical(@_);
  28 }
  29
  30 1;