Help for this page

Select Code to Download


  1. or download this
    package DBM::Deep::Array;
    
    ...
    sub _get_self {
        eval { tied( %{$_[0]} ) } || $_[0]
    }
    
  2. or download this
    %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