NAME

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:

SYNOPSIS

    #!/usr/bin/env/perl;
    use warnings;
    use strict;
    use lib 't/go_away';
    use Tie::SecureHash;

Then in t/go_away:

    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.

SYNOPSIS

    use Tie::SecureHash;

    # CREATE AN  INSECURE HASH

        my %hash;
        tie %hash, Tie::InSecureHash;

    # CREATE A REFERENCE TO AN  INSECURE HASH (BLESSED INTO Tie::InSecureHash!)

        my $hashref = Tie::InSecureHash->new();

    # CREATE A REFERENCE TO A INSECURE HASH (BLESSED INTO $some_other_class)

        my $hashref = Tie::InSecureHash->new($some_other_class);

    # CREATE NEW ENTRIES IN THE HASH

        package MyClass;

        sub new
        {
                my ($class, %args) = @_
                my $self = Tie::InSecureHash->($class);

                $self->{MyClass::public}     = $args{public};
                $self->{MyClass::_protected} = $args{protected};
                $self->{MyClass::__private}  = $args{private};

                return $self;
        }

    # SAME EFFECT, EASIER SYNTAX...

        package MyClass;

        sub new
        {
                my ($class, %args) = @_
                my $self = Tie::InSecureHash->($class,
                                public     => $args{public},
                                _protected => $args{protected},
                                __private  => $args{private},
                                );

                return $self;
        }

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)