view release on metacpan or  search on metacpan

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

    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 ) = @_;