cannot using Mango.pm module for mongodb.net cluster

[ovntatar]

Hi,
I try to setup a mongodb clusten at mongodb.net and play arount with perl modules Mango and MongoDB
unfortunately if I run a simple test with Mango - the test failed
I'm not sure if is it a bug therefore could you check what the issue is or what I'm doing wrong ?

Thanks

Perl version
This is perl 5, version 22, subversion 1 (v5.22.1) built for x86_64-linux-gnu-thread-multi

cpanm Mango
Mango is up to date. (1.29)

Cluster0-shard-0:PRIMARY> db.version()
3.2.16
Cluster0-shard-0:PRIMARY>

`#!perl
use DDP;
use Mango;

my $mango = Mango->new('mongodb://testadmin:password-wihout-special-chart@cluster0-shard-00-00-nrhyy.mongodb.net:27017,cluster0-shard-00-01-nrhyy.mongodb.net:27017,cluster0-shard-00-02-nrhyy.mongodb.net:27017/test?ssl=true&replicaSet=Cluster0-shard-0&authSource=admin');

my $oid = $mango->db('test')->collection('foo')->insert({bar => 'baz'});
my $doc = $mango->db('test')->collection('foo')->find_one({bar => 'baz'});
p $doc->{bar};`

DEBUG
MANGO_DEBUG=1 perl mango.pl
-- Operation #1 (query)
[
"test.$cmd",
{},
0,
-1,
{
"documents" => [
{
"_id" => bless( {}, 'Mango::BSON::ObjectID' ),
"bar" => "baz"
}
],
"insert" => "foo",
"ordered" => \1,
"writeConcern" => {
"j" => \0,
"w" => 1,
"wtimeout" => 1000
}
},
{}
]
-- New connection (cluster0-shard-00-00-nrhyy.mongodb.net:27017:1)
-- Operation #2 (query)
[
"test.$cmd",
{},
0,
-1,
{
"isMaster" => 1
},
{}
]
-- Client >>> Server (#2)
Premature connection close at /usr/local/share/perl/5.22.1/Mango/Database.pm line 65.

[oliwer]

Hi!
I think you've been bitten by perl's memory management. You should never write my $mango = Mango->new(...).

Instead, look at the documentation at https://metacpan.org/pod/Mango and write a subroutine like this:

sub mango { state $m = Mango->new(...) }

Then you can do you requests like mango->db('test')->collection('foo')->insert(stuff);

[ovntatar]

changed code to

``#!perl

use DDP;
use Mango;
use feature 'state';

sub mango { state $m = Mango->new('mongodb://testadmin:testpw@cluster0-shard-00-00-nrhyy.mongodb.net:27017,cluster0-shard-00-01-nrhyy.mongodb.net:27017,cluster0-shard-00-02-nrhyy.mongodb.net:27017/test?ssl=true&replicaSet=Cluster0-shard-0&authSource=admin'); };

my $oid = mango->db('test')->collection('foo2')->insert({bar2 => 'baz'});
p $oid;
my $doc = mango->db('test')->collection('foo2')->find_one({bar2 => 'baz2'});
p $doc->{bar2};

[ovntatar]

unf get same issue

-- Operation #1 (query)
[
"test.$cmd",
{},
0,
-1,
{
"documents" => [
{
"_id" => bless( {}, 'Mango::BSON::ObjectID' ),
"bar2" => "baz"
}
],
"insert" => "foo2",
"ordered" => \1,
"writeConcern" => {
"j" => \0,
"w" => 1,
"wtimeout" => 1000
}
},
{}
]
-- New connection (cluster0-shard-00-00-nrhyy.mongodb.net:27017:1)
-- Operation #2 (query)
[
"test.$cmd",
{},
0,
-1,
{
"isMaster" => 1
},
{}
]
-- Client >>> Server (#2)
Premature connection close at /usr/local/share/perl/5.22.1/Mango/Database.pm line 65.

[ovntatar]

I'm ready to provide you the test account credentials for testing via email , if you are interested into ?

[oliwer]

Hm. Then it's probably because Mango does not support SSL connections. Although I think it should be easy to add. If you can, could you open Mango.pm at line 140, and add the option tls => 1 to the client() call (in addition to address and port).

If it's not enough, then you'll have to send me a test account.

[ovntatar]

change line 140 is done - but get auth error
Authentication failed. at /usr/local/share/perl/5.22.1/Mango/Database.pm line 65.

I have send the test account details to your fastemail account !

Thanks in advance