Select Code to Download

package Example;
use Moose;
...
   $mesg = $self->ldap->search(filter => "(uid=$user)");
   ...
}

my $eg = Example->new(ldap_class => "Net::MyLDAP", ...);