perl - Perl MongoDB パッケージを使用して Mongo レプリカで MapReduce を行う方法

Question

MongoDB パッケージ v0.45 で Perl v5.12 を使用しています。

MapReduce ジョブを実行して、後でカーソルを作成する新しいコレクションを作成したいと考えています。もう 1 つの希望は、このジョブがマスターではなくレプリカで実行されることです。

perl doc で定義されているように、MapReduce ジョブはrun_commandメソッドを使用して実行されます。perl スクリプトを実行すると、次のようになります。

Mongo error: not master at perlib/Connections.pm line 63.

CPAN で MongoDB のドキュメントを読んだ後、カーソルがレプリカから読み取れるようにする方法しかないようです。したがって、そのメソッドは への呼び出しには適用されませんrun_command()。

これが私のコードです：

sub get_data {
    my $self = shift;
    my $dbh = shift;
    my $collection_h = shift;   
    my $since_time = $self->get_date_time(shift);
    my $loop_limit = $self->get_data_limit(shift);

    my %data = ();
    my $ctr = 0;

    my $temp_collection='temp_collection';

    my $ids = $dbh->run_command([
         "mapreduce" => $collection_h->{'name'}
        ,"map" => _get_map()
        ,"reduce" => _get_reduce()
        ,"query"    =>  {'to.id' => {'$exists'=>'true'}, 'updatedDate' => { '$gte' => $since_time }}
        ,"out" => $temp_collection      
    ]);

    die ("Mongo error: $ids") unless ref($ids) eq 'HASH';

        # next we create a cursor to this new collection
    my $cfs_h = $dbh->$temp_collection;
    my $id_cursor = $cfs_h->find()->limit($loop_limit);

    $id_cursor->slave_okay(1);
    $id_cursor->immortal(1);
    ...
}

sub _get_map {
    return "function() {emit(this.to.id, 1);}"; 
}

sub _get_reduce {

    return "function(k,vals) {return 1;}"
}

レプリカで MapReduce を使用しようとして、この問題に遭遇した人はいますか? 成功しましたか？もしそうなら、あなたがそれをした方法を教えてください。