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
5package Net::LDAP::Extension;
6
7use vars qw(@ISA $VERSION);
8
9@ISA = qw(Net::LDAP::Message);
10$VERSION = "1.01";
11
12#fetch the response name
13sub response_name {
14  my $self = shift;
15
16  $self->sync unless exists $self->{Code};
17
18  exists $self->{responseName}
19    ? $self->{responseName}
20    : undef;
21}
22
23# fetch the response.
24sub response {
25  my $self = shift;
26
27  $self->sync unless exists $self->{Code};
28
29  exists $self->{response}
30    ? $self->{response}
31    : undef;
32}
33
341;
35