an example

gistfile1.txt

package BCV::LDAP::User;
use Moose;
use namespace::autoclean;

has entry => (
    is => 'ro',
    isa => 'Net::LDAP::Entry',
);

our $AUTOLOAD;

sub attributes {
    my $s = shift;

    $s->entry->attributes();
}

sub AUTOLOAD {
    my $s = shift;
    my $attr = $AUTOLOAD;

    $attr =~ s/.*:://;
    return $s->entry->get_value($attr);
}

__PACKAGE__->meta->make_immutable;
1;