t/Support/Systemexec.pm

   1 # -*- Mode: perl; indent-tabs-mode: nil -*-
   2
   3 package Support::Systemexec;
   4 require Exporter;
   5 @ISA = qw(Exporter);
   6 @EXPORT = qw(system exec open);
   7 @EXPORT_OK = qw();
   8 sub system($$@) {
   9   1;
  10 }
  11 sub exec($$@) {
  12   1;
  13 }
  14 sub open(*$$@) {
  15   1;
  16 }
  17 1;