Skip to content

Instantly share code, notes, and snippets.

@exodist

exodist/foo.pl

Created January 23, 2016 21:08
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save exodist/fd973fb634118590008a to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save exodist/fd973fb634118590008a to your computer and use it in GitHub Desktop.
Download ZIP
Raw
foo.pl
eval <<" EOT" || die $@;
# If the caller has redefine warnings enabled then we want to warn them if
# their import redefines things.
BEGIN { \${^WARNING_BITS} = \$caller->[9] if defined \$caller->[9] };
#line $caller->[2] "$caller->[1]"
(*{"$into\\::\$_"} = \$final{\$_}, push \@{\$Importer::IMPORTED{\$into}} => \$_) for keys %final;
1;
EOT
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment