The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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.