package DBM::Deep::Array;

sub _get_self {
    eval { tied( @{$_[0]} ) } || $_[0]
}

package DBM::Deep::Hash;

sub _get_self {
    eval { tied( %{$_[0]} ) } || $_[0]
}

##</code><code>##

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 99.6   61.24 61.244 602629   0.0001 0.0001  Test::Builder::__ANON__
 19.1   11.79 73.033 610623   0.0000 0.0001  DBM::Deep::Array::_get_self
 2.62   1.610 11.770  33693   0.0000 0.0003  DBM::Deep::_load_tag
 1.79   1.103  8.684   8002   0.0001 0.0011  DBM::Deep::_add_bucket
 1.48   0.910 40.633 318635   0.0000 0.0001  DBM::Deep::root