Select Code to Download

package Outside::In;
use strict;
...
    'old' => sub { $oldnode1->get_parent },
    'new' => sub { $newnode1->get_parent }
});

        Rate  old  new
old 477555/s   -- -34%
new 723066/s  51%   --

sub get_parent {
    return $_[0]->{'PARENT'};
}

sub get_parent {
    return $parent[${$_[0]}];
}