[Summary view] [Print] [Text view]

   1  # Copyright (c) 1998-2004 Graham Barr <gbarr@pobox.com>. All rights reserved.
   2  # This program is free software; you can redistribute it and/or
   3  # modify it under the same terms as Perl itself.
   4  
   5  package Net::LDAP::Extension;
   6  
   7  use vars qw(@ISA $VERSION);
   8  
   9  @ISA = qw(Net::LDAP::Message);
  10  $VERSION = "1.02";
  11  
  12  #fetch the response name
  13  sub response_name { 
  14    my $self = shift;
  15  
  16    $self->sync unless exists $self->{resultCode};
  17  
  18    exists $self->{responseName}
  19      ? $self->{responseName}
  20      : undef;
  21  }
  22  
  23  # fetch the response.
  24  sub response {
  25    my $self = shift;
  26  
  27    $self->sync unless exists $self->{resultCode};
  28  
  29    exists $self->{response}
  30      ? $self->{response}
  31      : undef;
  32  }
  33  
  34  1;