Select Code to Download

use strict;
use warnings;
...
$bar-> frob;
$foo-> blurt;
$bar-> blurt;

Foo Foo
Bar Foo
Foo Foo
Bar Bar

sub setObjNum
{
...
   $self->traverse(0, $objnode, \&_setObjNumCB, [$objnum, $gennum]);
   return;
}

$self->$func($objnode, $funcdata);