Cacher is the code snippet organizer for pro developers

use strict;
use warnings;
use PadWalker qw/peek_my/;
use Test::More;
use Data::Dumper;

sub foo {
    ${peek_my(1)->{'$x'}} = 'yay';
}

{
    my $x;
    foo();
    is $x, 'yay';
}

{
    foo(my $x);
    is $x, 'yay';
}

done_testing;