Net :: Server несовместим с MongoDB

Question

Когда я запускаю этот код внутри модуля, который наследуется от Net :: Server , 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 );

Answer 1

Звучит похоже на https://jira.mongodb.org/browse/PERL-78. Вы убедились, что у вас установлена ​​последняя версия большинства библиотек?Было бы полезно, если бы вы могли указать версию Perl, драйвера Perl MongoDB и т. Д., Которую вы используете.