Select Code to Download

sub processGraph {
        print "Total node count = " . $graph->nodecount() . "\n";
...
                my $thr = threads->new(\&calcFoo, $graph, $id, $node);
        }
}

sub calcFoo {
        my ($graph, $id, $node) = @_;
...
        print "$graph\n";
        print "Total node count = " . $graph->nodecount() . " in threa
+d\n";
}

main=HASH(0x9165900)
thread failed to start: Can't call method "nodecount" without a packag
+e or object reference at new_processor line 69.