Select Code to Download

package DBM::Deep::Array;

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

%Time ExclSec CumulS #Calls sec/call Csec/c  Name
 99.6   61.24 61.244 602629   0.0001 0.0001  Test::Builder::__ANON__
...
 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