how to use "find" to search "_id => OBjectID("id")" in Perl API

Question

I have to find a kind of "_id" in my Mongo, I can do it using the Mongo shell, and I can not do that using Perl API.

I'm trying to do it (mongo shell):

./mongo
use my_db
db.my_collection.find({_id : ObjectId("4d2a0fae9e0a3b4b32f70000")})

It works!(returns), but I can't do that using Perl API,

$mongo->my_db->my_collection(find({_id => "ObjectId(4d2a0fae9e0a3b4b32f70000"}));

Does not work because "ObjectId" is not a string, but if you do,

./mongo
use my_db
db.my_collection.find({_id : "ObjectId(4d2a0fae9e0a3b4b32f70000)"})

Does not work too, I'm guess Perl API are doing it ^

Now, I have to know how I do it:

db.my_collection.find({_id : ObjectId("4d2a0fae9e0a3b4b32f70000")})

using Perl API.

Answer 1

The implementation seems changed.

$mongo->my_db->my_collection(
  find({ _id => MongoDB::OID->new(value => "4d2a0fae9e0a3b4b32f70000")})
);

Answer 2

I found the solution, you have to do:

$mongo->my_db->my_collection(find({ _id => $mongo->oid("4d2a0fae9e0a3b4b32f70000")}));