#!/usr/local/bin/perl

=head1 NAME

Tie::Restore - restores ties to an existing object

=head1 DESCRIPTION

Provides the opposite of the 'tied' function.  Say you have %hash that
is tied to $object.  Then, it is relatively simple to get $object from
%hash simply by saying

 $object = tied %hash;

But, how does one go the other way?  Simple, with Tie::Restore

 tie %hash, 'Tie::Restore', $object;

Works for any kind of tie. (scalar, array, hash, filehandle)

=head1 HISTORY

=over 2

=item *

05/22/02 - fixed problem with old .tar.gz - version 0.11

=item *

11/03/01 - Robby Walker - added documentation - version 0.1

=back

=cut
#----------------------------------------------------------

package Tie::Restore;

our $VERSION = 0.11;

sub TIESCALAR { $_[1] }
sub TIEARRAY  { $_[1] }
sub TIEHASH   { $_[1] }
sub TIEHANDLE { $_[1] }

1;

__END__

=head1 BUGS

None known.  Hard to imagine anything serious in 6 lines of code...

=head1 AUTHORS AND COPYRIGHT

Written by Robby Walker ( webmaster@pointwriter.com ) for Point Writer ( http://www.pointwriter.com/ ).

You may redistribute/modify/etc. this module under the same terms as Perl itself.