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