view release on metacpan or  search on metacpan

t/tlib/Test/BashCompletionTestUtils.pm  view on Meta::CPAN

sub create_test_cmds {
  my %results;

  my $bin_dir = $results{tempdir} = File::Temp->newdir;
  $results{path} = join($Config{path_sep}, $bin_dir, $ENV{PATH});

  for my $cmd (@_) {
    my $path = catfile($bin_dir->dirname, $cmd);
    open(my $fh, '>', $path);
    next unless $fh && chmod(0755, $path);
    $results{cmd}{$cmd} = {path => $path, fh => $fh};
  }

  return \%results;
}

1;