sub search_ldap {                                                                                                                                                                                           
    my ( $self, $ldap ) = @_; 
 
    # get uid, email, ecufreeze, cnum, itimaccess from LDAP
    report LOG_INFO, "Reading from Ldap";
    unless (
             $ldap->searchUser( filter     => '(uid=*)',
                                attributes => "freeze uid dn cnum email" ) ) 
    {   
        report LOG_ERROR, "Can not list user from LDAP: " . $ldap->getError();
        exit 0;
    }   
 
    return $ldap;
 
}

##</code><code>##

my $m = Mock::Sub->new;                 
my $ldap = Utils::Ldap::CompanyLdap->new;                                                                                                                                                                              
                                     
my $mocked_sub = $m->mock(           
    'Utils::Ldap::CompanyLdap::searchUser'
);     

# This is actually a Utils::Ldap::CompanyLdap-Object I copied via Data::Dumper
my $return_value = bless ( ... ); 
                                     
$mocked_sub->return_value($return_value);
    
    # cache is an instance of my own object                             
    ok( $cache->search_ldap($my_ldap) );
                                     
    ok( $cache->read_all_userids($my_ldap) );
                                     
is $mocked_sub->called, 1, "searchUser() called ok";