===========================================================
                                      .___ __  __   
          _________________  __ __  __| _/|__|/  |_ 
         / ___\_` __ \__  \ |  |  \/ __ | | \\_  __\
        / /_/  >  | \// __ \|  |  / /_/ | |  ||  |  
        \___  /|__|  (____  /____/\____ | |__||__|  
       /_____/            \/           \/           
              grep rough audit - static analysis tool
                  v2.8 written by @Wireghoul
=================================[justanotherhacker.com]===
libmongodb-perl-2.2.2/t/readpref.t-165-        my $count;
libmongodb-perl-2.2.2/t/readpref.t:166:        is( exception { $count = $coll2->count_documents({}) }, undef, "count_documents on $addr ($type) succeeds" )
libmongodb-perl-2.2.2/t/readpref.t-167-          or diag explain $s;
##############################################
libmongodb-perl-2.2.2/t/examples/driver-examples.t-20-#
libmongodb-perl-2.2.2/t/examples/driver-examples.t:21:# Examples use `$db->coll("inventory")` to parallel the shell examples, which
libmongodb-perl-2.2.2/t/examples/driver-examples.t:22:# use `db.inventory`.  Testing commands use a `$coll` variable for more
libmongodb-perl-2.2.2/t/examples/driver-examples.t-23-# idiomatic brevity.
##############################################
libmongodb-perl-2.2.2/t/examples/changestream.t-20-#
libmongodb-perl-2.2.2/t/examples/changestream.t:21:# Examples use `$db->coll("inventory")` to parallel the shell examples, which
libmongodb-perl-2.2.2/t/examples/changestream.t:22:# use `db.inventory`.  Testing commands use a `$coll` variable for more
libmongodb-perl-2.2.2/t/examples/changestream.t-23-# idiomatic brevity.
##############################################
libmongodb-perl-2.2.2/t/data/retryable-writes/README.rst-275-
libmongodb-perl-2.2.2/t/data/retryable-writes/README.rst:276:  - ``aggregate`` with ``$out`` pipeline operator
libmongodb-perl-2.2.2/t/data/retryable-writes/README.rst-277-
##############################################
libmongodb-perl-2.2.2/t/data/change-streams/README.rst-157-7. The ``killCursors`` command sent during the "Resume Process" must not be allowed to throw an exception.
libmongodb-perl-2.2.2/t/data/change-streams/README.rst:158:8. ``$changeStream`` stage for ``ChangeStream`` against a server ``>=4.0`` that has not received any results yet MUST include a ``startAtOperationTime`` option when resuming a changestream.
libmongodb-perl-2.2.2/t/data/change-streams/README.rst-159-9. ``ChangeStream`` will resume after a ``killCursors`` command is issued for its child cursor.
##############################################
libmongodb-perl-2.2.2/t/data/SDAM/README.rst-35-  If the response includes an electionId it is shown in extended JSON like
libmongodb-perl-2.2.2/t/data/SDAM/README.rst:36:  `{"$oid": "000000000000000000000002"}`.
libmongodb-perl-2.2.2/t/data/SDAM/README.rst-37-  The empty response `{}` indicates a network error
##############################################
libmongodb-perl-2.2.2/t/data/CRUD/README.rst-261-- ``expected`` is ``{ "x": 1 }``
libmongodb-perl-2.2.2/t/data/CRUD/README.rst:262:- ``actual`` is ``{ "_id": { "$oid" : "000000000000000000000001" }, "x": 1 }``
libmongodb-perl-2.2.2/t/data/CRUD/README.rst-263-
##############################################
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-124-declare ZlibCompressionLevel, as Int,
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm:125:  where { $_ >= -1 && $_ <= 9 },
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-126-  message { "zlib compression value must be value from -1 to 9" };
##############################################
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-142-declare HostAddress, as Stringish,
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm:143:  where { $_ =~ /^[^:]+:[0-9]+$/ and lc($_) eq $_ }, message {
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-144-    "Address '$_' either not lowercased or not formatted as 'hostname:port'"
##############################################
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-150-
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm:151:declare Intish, as Numish, where { defined $_ and $_ == int($_) };
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-152-
##############################################
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-197-
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm:198:declare SingleKeyHash, as HashRef, where { 1 == scalar keys %$_ };
libmongodb-perl-2.2.2/lib/MongoDB/_Types.pm-199-
##############################################
libmongodb-perl-2.2.2/debian/rules-26-	# The server process might not have actually started
libmongodb-perl-2.2.2/debian/rules:27:	[ ! -s $(PIDFILE) ] || /bin/kill `cat $(PIDFILE)` || true
libmongodb-perl-2.2.2/debian/rules-28-
##############################################
libmongodb-perl-2.2.2/debian/tests/pkg-perl/smoke-cleanup-4-
libmongodb-perl-2.2.2/debian/tests/pkg-perl/smoke-cleanup:5:[ ! -s $TDIR/mongo.pid ] || /bin/kill `cat $TDIR/mongo.pid` || true
libmongodb-perl-2.2.2/debian/tests/pkg-perl/smoke-cleanup-6-rm -rf $TDIR/build
##############################################
libmongodb-perl-2.2.2/debian/tests/pkg-perl/smoke-env:1:MONGOD=`/bin/netstat -want | perl -w -e 'while (<>) { $used{$1}=1 if /127\.0\.0\.1:(\d+)/;}; $port = 12345; while ($used{$port}) { $port++ }; print "127.0.0.1:$port\n";'`