Select Code to Download

sub search_ldap {                                                     
+                                                                     
+                                                                 
    my ( $self, $ldap ) = @_; 
...
    return $ldap;
 
}

my $m = Mock::Sub->new;                 
my $ldap = Utils::Ldap::CompanyLdap->new;                             
+                                                                     
+                                                                     
+       
...
                                     
is $mocked_sub->called, 1, "searchUser() called ok";