/usr/share/perl5/Net/LDAP/Extra.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 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 | # Copyright (c) 2000-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::Extra;
use strict;
require Net::LDAP;
require Carp;
our $VERSION = '0.02';
sub import {
shift;
local $SIG{__DIE__} = \&Carp::croak;
foreach (@_) {
my $file = "Net/LDAP/Extra/$_.pm";
next if exists $INC{$file};
require $file;
"Net::LDAP::Extra::$_"->import;
}
}
1;
__END__
=head1 NAME
Net::LDAP::Extra -- Load extra Net::LDAP methods
=head1 SYNOPSIS
use Net::LDAP::Extra qw(my_extn);
$ldap = Net::LDAP->new( ... );
$ldap->my_extn( ... );
=head1 DESCRIPTION
C<Net::LDAP::Extra> allows extra methods to be added to Net::LDAP.
Normally such methods would be added by sub-classing Net::LDAP, but this
proves to get messy as different people write different additions and
others want to use multiple of these sub-classes. Users end up having
to create sub-classes of their own which inherit from all the extension
sub-classes just so they can get all the features.
C<Net::LDAP::Extra> allows methods to be added directly to
all Net::LDAP objects. This can be done by creating a class
C<Net::LDAP::Extra::name> which exports functions. A
C<use Net::LDAP::Extra qw(name)> will then make these functions available
as a methods on all C<Net::LDAP> objects.
Care should be taken when choosing names for the functions to export
to ensure that they do not clash with others.
=head1 SEE ALSO
L<Net::LDAP::Extra::AD>,
=cut
|