Select Code to Download

# N-hashes code adapted from docs to Class::Std
sub BUILD {
...

    $data{$obj_ID} = { %default_of, %$arg_ref };
}

sub CLONE {
    # fix-up all object ids in the new thread
...
   
    return;
}

               Rate NHashObject   HoHObject
NHashObject 51694/s          --        -43%
HoHObject   90761/s         76%          --

               Rate NHashObject   HoHObject
NHashObject 50557/s          --         -4%
HoHObject   52932/s          5%          --

               Rate   HoHObject NHashObject
HoHObject   60857/s          --         -4%
NHashObject 63625/s          5%          --