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";