Catalyst::Model::LDAP::Search - Convenience methods for Net::LDAP::Search

Catalyst-Model-LDAP documentation

Contained in the Catalyst-Model-LDAP distribution.

Index

Code Index:

package Catalyst::Model::LDAP::Search
- init
EOF

NAME

Catalyst::Model::LDAP::Search - Convenience methods for Net::LDAP::Search

DESCRIPTION

Subclass of Net::LDAP::Search, with an additional method to rebless the entries. See Catalyst::Model::LDAP::Entry for more information.

METHODS

init

Reblesses search results as objects of the specified class.

SEE ALSO

* Catalyst::Model::LDAP
* Catalyst::Model::LDAP::Entry

AUTHORS

* Marcus Ramberg

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Catalyst-Model-LDAP documentation

Contained in the Catalyst-Model-LDAP distribution.

package Catalyst::Model::LDAP::Search;

use strict;
use warnings;
use base qw/Net::LDAP::Search/;

sub init {
    my ($self, $class) = @_;

    eval "require $class";
    die $@ if $@;

    foreach my $entry (@{ $self->{entries} }) {
        bless $entry, $class;
        $entry->_ldap_client($self->parent);
    }
}

1;