Add a default search base to Net::LDAP via new(base => $base)

Wrapper.pm

package Net::LDAP::Wrapper;
use strict;                                                                                                                                     
                                                                                                                                                
use parent 'Net::LDAP';                                                                                                                         
                                                                                                                                                
my $_base;                                                                                                                                      
                                                                                                                                                
sub new {                                                                                                                                       
  my $class = shift;                                                                                                                            
                                                                                                                                                
  my $host = shift;                                                                                                                             
  my %opts = (@_);                                                                                                                              
 
  if (exists($opts{base})) {
    $_base = $opts{base};
    delete $opts{base};
  }
 
  my $self = $class->SUPER::new($host, %opts);
  return $self;
}
 
sub search {
  my $self = shift;
  push(@_, base => $_base) if $_base;
  return $self->SUPER::search(@_);
}
 
1;