##
-X->+---------+ +---------+
-Y->| Wrapper |-J->| Node |
-Z->+---------+ +---------+
| ^
A B
v |
+---------+
| Node |
+---------+
####
use Object::Destroyer qw( );
$tree = Object::Destroyer->new($tree);