Select Code to Download

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

sub foo {
    my $arg = shift;
...
    }
}
foo( fruit => 'banana' );

my $ldap = Net::LDAP->new( $host );
my $self->{ldap} = $ldap;