Acme::Innuendo - polite access to Perls private parts

NAME

Acme::Innuendo - polite access to Perls private parts

SYNOPSIS

  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";
  } );

DESCRIPTION

This module provides an alternative method of addressing the symbol table for those who condider it akin to ``touching Perl's genitals.''

special_place
  $root_namespace = special_place();

Returns the root name space.

wink_wink
  $ref = wink_wink( $namespace, $symbol );

Returns the glob for the symbol in the given namespace, if it exists.

nudge_nudge
  nudge_nudge( $namespace, $symbol, $ref );

Changes or adds the symbol in the namespace.

walk_the_dog
  walk_the_dog( $namespace, sub { ... } );

Walks a namespace and sends symbol information to the callback routine.

AUTHOR

Robert Rothenberg <rrwo at cpan.org>

COPYRIGHT AND LICENSE

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.

 Acme::Innuendo - polite access to Perls private parts