view release on metacpan or  search on metacpan

lib/Catalyst/Model/LDAP/Entry.pm  view on Meta::CPAN

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
    my $self = $class->next::method( $dn, %attributes );
 
    if ($client) {
        $self->_ldap_client($client);
    }
 
    return $self;
}
 
 
sub update {
    my $self = shift;
    my $client = shift || $self->_ldap_client;
    croak 'No LDAP client provided to update' unless $client;
 
    return $self->next::method( $client, @_ );
}
 
 
sub can {
    my ( $self, $method ) = @_;