不工作:網::服務器使用MongoDB的
use base qw(Net::Server);
當我把這個代碼,而無需:繼承,它工作正常。
Can't locate object method "run_command" via package "MongoDB::Database" at /usr/local/lib/perl5/MongoDB/Connection.pm line 519 MongoDB::Connection::_get_max_bson_size('MongoDB::Connection=HASH(0x9d48bc8)') called at /usr/local/lib/perl5/MongoDB/Connection.pm line 463 MongoDB::Connection::BUILD('MongoDB::Connection=HASH(0x9d48bc8)', 'HASH(0x9d48ba8)') called at /opt...
這裏是發生故障的線路:
$mongo_handle =
MongoDB::Connection->new('host' => 'mongodb://' . $host . ':' . $port);
有時base.pm有問題 - 你可以嘗試安裝父母並將'use base'改爲'use parent',否則改爲'use Net :: Server; BEGIN {unshift @ISA,「Net :: Server」}'? – hobbs