- or download this
package Example;
use Moose;
...
$mesg = $self->ldap->search( filter => "(uid=$$self-user)" );
...
}
- or download this
sub foo {
my $arg = shift;
...
}
}
foo( fruit => 'banana' );
- or download this
my $ldap = Net::LDAP->new( $host );
my $self->{ldap} = $ldap;