The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Tie::InSecureHash

DESCRIPTION

Tie::InSecureHash - A tied hash that is API compatible with Tie::SecureHash with namespace-based encapsulation features disabled. This is for debugging. Typically you'll use this in the following manner:

    #!/usr/bin/env perl
    use warnings;
    use strict;
    BEGIN {
        if ($ENV{STUPID_AND_DANGEROUS}) {
            use lib 't/naughty_lib';
        }
    }
    use Tie::SecureHash;

Then in t/naughty_lib:

    package Tie::SecureHash;
    use base Tie::InSecureHash;
    1;

Now you can use things like Devel::Cycle (temporarily) in your code ...

VERSION

This code derived form v1.03 of Tie::SecureHash released in 1999.

ACCESS RESTRICTIONS ON ENTRIES

There are none. This code is for debugging only :P

AUTHOR

Damian Conway (damian@cs.monash.edu.au)

Swathes of code deletions by Kieren Diment <zarquon@cpan.org> with help from Glenn Fowler (CEBJYRE).

BUGS AND IRRITATIONS

None here :P

COPYRIGHT

        Copyright (c) 1998-2000, Damian Conway. All Rights Reserved.
      This module is free software. It may be used, redistributed
      and/or modified under the terms of the Perl Artistic License
           (see http://www.perl.com/perl/misc/Artistic.html)