Problems Passing an object to a function that was passed to a module

Select or download this

sub parseGroupDescription
{    my $groupObj=shift;   # my problem $groupObj is always undef / $g
+roupObj is Net::LDAP:Entry
...
    
    return $response;
}    # sub parseGroupDescription

Select or download this

my $data=$zbdbObj->fetchData($ldapConn,$serviceFilter,$groupFilter,sub
+ {parseGroupDescription});

Select or download this

sub fetchData
{    my $selfObj=shift;
...
        $serviceDataObj->{"groups"}->{$groupName}=$groupName;
    }    # foreach my $group ($allGroups->entries)
}    # sub fetchData

Select Code to Download