view release on metacpan or  search on metacpan

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

our $exec_handler = sub {
  CORE::exec(@_);
};
BEGIN {
  *CORE::GLOBAL::exec = sub { $exec_handler->(@_) };
}


my $last;

sub exec_arrayref(&)
{
  my($code) = @_;
  
  undef $last;
  
  return with_return {
    my($return) = @_;
    local $exec_handler = sub {
      $last = [caller(1)];
      $return->([@_]);