view release on metacpan or  search on metacpan

lib/Test/Exec.pm  view on Meta::CPAN

# ABSTRACT: Test that some code calls exec without terminating testing
our $VERSION = '0.07'; # VERSION


our @EXPORT = qw( exec_arrayref never_exec_ok );


my $last;

sub exec_arrayref(&)
{
  my($code) = @_;

  undef $last;

  return with_return {
    my($return) = @_;
    local $Test2::Tools::Process::handlers{exec} = sub {
      $last = [caller(1)];
      $return->([@_]);