/usr/share/perl5/Net/LDAP/Extension.pm is in libnet-ldap-perl 1:0.5800-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 | # Copyright (c) 1998-2004 Graham Barr <gbarr@pobox.com>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
package Net::LDAP::Extension;
our @ISA = qw(Net::LDAP::Message);
our $VERSION = '1.03';
#fetch the response name
sub response_name {
my $self = shift;
$self->sync unless exists $self->{resultCode};
exists $self->{responseName}
? $self->{responseName}
: undef;
}
# fetch the response.
sub response {
my $self = shift;
$self->sync unless exists $self->{resultCode};
exists $self->{response}
? $self->{response}
: undef;
}
1;
|