view release on metacpan or  search on metacpan

t/tt.t  view on Meta::CPAN

use strict;
use PadWalker;

print "1..5\n";

our %h;
my $out1 = 'out1';
my $out2 = 'out2';

sub f1() {
  my $local = 'local';
  %h = %{PadWalker::peek_my(1)};
  print (${$h{'$out1'}}  eq 'out1'  ? "ok 1\n" : "not ok 1\n");
  print (${$h{'$out2'}}  eq 'out2'  ? "ok 2\n" : "not ok 2\n");
}

f1();

eval q{
  my $in_eval = 'in_eval';