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>
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.