Skip to content

Instantly share code, notes, and snippets.

@exodist

exodist/gist:98ab3c14903e724fbba0

Created July 3, 2015 04:31
Show Gist options
  • Save exodist/98ab3c14903e724fbba0 to your computer and use it in GitHub Desktop.
Save exodist/98ab3c14903e724fbba0 to your computer and use it in GitHub Desktop.
Download ZIP
grrr
Raw
gistfile1.txt
use Data::Dumper;
my $stash = \%{"FAKE\::"};
print Dumper([keys %$stash]);
local *FAKE::xxx = sub { 'xxx' };
print Dumper([keys %$stash]);
__END__
$VAR1 = [
'xxx'
];
$VAR1 = [
'xxx'
];
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment