No, because lots of stuff is hidden. Consider what you have todo today
$mesg = $ldap->delete(@args); handle_referal($mesg) if (... check for referral ..);
vs
$ldap = Net::LDAP-.new(..., referral_connect => \&my_connect)
$mesg= $ldap->delete(@args);
Where referrals are done behind the scenes using &my_connect to create the connection
Graham.
Would my_connect be a Net::LDAP object? or would it be a new object such as the one below:
$my_connect = Net::LDAP::Referrals->new(....);
where $ldap->delete(...) would call some function to get the Net::LDAP object if a referral was returned:
$ldapr = $my_connect->get_ldap_obj(@referrals);
