package Example;
use Moose;
use Net::LDAP;

# Options related to SSH
has [ 'host', 'user']   is => 'rw', isa => 'Str', required => 1;
has 'ldap',             is => 'rw';
has 'error',            is => 'rw', isa => 'Str';


# Create the SSH expect object
sub get_user {
    my $self = shift;
    my $user = $self->user;
    my $host = $self->host;

    $self->ldap( 
            Net::LDAP->new(
                $self->host
            )
        );

    my $mesg = $self->ldap->bind;

    $mesg = $self->ldap->search( filter => "(uid=$$self-user)" );
    ...
}
[download]

1. Is there a Moose way to define named subroutine parameters? Doing something like this:

   sub foo {
       my $arg = shift;
   
       if (exists $arg->{'fruit'} ) {
           ....
       }
   }
   foo( fruit => 'banana' );
   [download]

   There's a new Moose way of creating constructors, and defining what paramaters (arguments, options) those accept. Is there a Moose way to define subroutine parameters? The old way still works, but I'm just wondering.



2. Here's how I was creating an LDAP connection before:

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

   This still works, but I am wondering if there's a Moose way to do this. I've defined the attributes for my class... how do I deal with attributes of the object (i.e., self) that are objects from a different module?