[ Index ] |
PHP Cross Reference of Unnamed Project |
[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;
title
Description
Body
title
Description
Body
title
Description
Body
title
Body
Generated: Tue Mar 17 22:47:18 2015 | Cross-referenced by PHPXref 0.7.1 |