Select Code to Download

my $obj = Samba::LDAP->new(args needed by File::Samba)->init(initializ
+ation arguments)

sub create_and_initialize { # 'new' is a bad name; it does more.
    my $class = shift;
...
    # Initialize the object using $arg.
    return $obj;
}