sub processGraph {
        print "Total node count = " . $graph->nodecount() . "\n";
        print "Total edge count = " . $graph->edgecount() . "\n";
        my $nodes = $graph->get_nodes();
        my $thr_count = 0;
        foreach my $node (@$nodes) {
                my $thr = threads->new(\&calcFoo, $graph, $id, $node);
        }
}

##</code><code>##

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

##</code><code>##

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