1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
package Test::Mock::Cmd::TestUtils::Y;
use strict;
use warnings;
sub i_call_system {
system(@_);
}
sub i_call_exec {
exec(@_);
}
sub i_call_readpipe {
readpipe( $_[0] );
}
sub i_call_qx {
qx(/bin/echo QX);
}
sub i_call_backticks {
`/bin/echo BT`;
}
1;
__END__
=head1 LICENCE AND COPYRIGHT
Copyright (c) 2011 cPanel, Inc. C<< <copyright@cpanel.net>> >>. All rights reserved.
This library is free software; you can redistribute it and/or modify it under
the same terms as Perl itself, either Perl version 5.10.1 or, at your option,
any later version of Perl 5 you may have available.
|
