Indeed there is:

foreach my $entry ($result->all_entries()) {
    foreach ($entry->attributes()) {
        my (undef, $val) = $entry->get_value($_)
        $r->{$entry->dn()}{$_} = $val
              ? [ $entry->get_value($_) ]
              : $entry->get_value($_);
    }
}
[download]

Update: but see ccn's reply below for a better solution.