Tie to an existing object.
use Tie::ToObject;
my $stolen = tied(%something);
tie %something_else, 'Tie::ToObject', $stolen;
While \*(L"tie\*(R" in perldoc allows tying to an arbitrary object, the class in question must support this in it's implementation of \*(C`TIEHASH\*(C', \*(C`TIEARRAY\*(C' or whatever.
This class provides a very tie constructor that simply returns the object it was given as it's first argument.
This way side effects of calling \*(C`$object->TIEHASH\*(C' are avoided.
This is used in Data::Visitor in order to tie a variable to an already existing object. This is also useful for cloning, when you want to clone the internal state object instead of going through the tie interface for that variable.
This module is maintained using Darcs. You can get the latest version from <http://nothingmuch.woobling.org/code>, and use \*(C`darcs send\*(C' to commit changes.
Yuval Kogman <[email protected]>
Copyright (c) 2008 Yuval Kogman. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.