Acme::Innuendo - polite access to Perl's private parts
use Acme::Innuendo;
# Create an alias
nudge_nudge( special_place(), "alias_sub",
wink_wink( special_place(), "some_sub" )
);
# Walk the symbol table
walk_the_dog( special_place(), sub {
my ($namespace, $symbol, $ref) = @_;
print $namespace, $symbol, "\n";
} );
This module provides an alternative method of addressing the symbol table for those who condider it akin to "touching Perl's genitals."
$root_namespace = special_place(); $module_namespace = special_place( $module_name );
Returns the name space of the specified module, or the root namespace if no module is specified.
$ref = wink_wink( $namespace, $symbol );
Returns the glob for the symbol in the given namespace, if it exists.
nudge_nudge( $namespace, $symbol, $ref );
Changes or adds the symbol in the namespace.
walk_the_dog( $namespace, sub { ... } );
Walks a namespace and sends symbol information to the callback routine.
This module is a bit of humor. For more serious applications, see the following modules on CPAN:
Alias Devel::LexAlias Lexical::Alias Package::Alias Tie::Alias Tie::Alias::Array Tie::Alias::Handle Tie::Alias::Hash Variable::Alias
Robert Rothenberg <rrwo at cpan.org>
current Maintainer: Rene Schickbauer <rene.schickbauer at gmail.com>
We don't know of any bugs, but that doesn't mean there aren't any. Please the CPAN bugtracker or mail Rene Schickbauer directly.
Copyright (C) 2004 by Robert Rothenberg. All Rights Reserved.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.3 or, at your option, any later version of Perl 5 you may have available.
Now maintained by Rene Schickbauer, so i guess everything after version 0.02 is (C) 2010 Rene Schickbauer
