Select Code to Download

.....
if($object->some_recursive_call > $value){
    $value = $object->some_recursive_call;
}
.....

.....
my $temp = $object->some_recursive_call;
...
    $value = temp;
}
.....

.....
my $temp = $object->some_recursive_call;
$value = $temp if $temp > $value;
.....

# perl
# node:
...

# calling the c function is:
getLeaves($tree,$node::child,$numKeys,$node::leaves,$leaf::weight);