Maintaining Mongo sort order from Perl client.

dynamic_hash.pl

#!/usr/bin/env perl

use strict;
use warnings;

use MongoDB;
use Tie::IxHash;

my $client     = MongoDB::MongoClient->new;
my $database   = $client->get_database( 'sorty' );
my $collection = $database->get_collection( 'people' );

my $sort = Tie::IxHash->new;
$sort->Push(age => -1);
#-- Do something else.
$sort->Push(name => -1);

my @documents = $collection->find({})->sort($sort)->all;
foreach my $document (@documents) {
    print $document->{name} . "\t". $document->{age} . "\n";
}

mango.pl

#!/usr/bin/env perl

use strict;
use warnings;

use Mango;
use Mango::BSON qw( bson_doc );

my $mango = Mango->new;
my $database   = $mango->db( 'sorty' );
my $collection = $database->collection( 'people' );

my $sort = bson_doc(age => -1, name => -1);

my $documents = $collection->find({})->sort($sort)->all;
foreach my $document (@$documents) {
    print $document->{name} . "\t". $document->{age} . "\n";
}

static_hash.pl

#!/usr/bin/env perl

use strict;
use warnings;

use MongoDB;
use Tie::IxHash;

my $client     = MongoDB::MongoClient->new;
my $database   = $client->get_database( 'sorty' );
my $collection = $database->get_collection( 'people' );

my $sort = Tie::IxHash->new(age => -1, name => -1);

my @documents = $collection->find({})->sort($sort)->all;
foreach my $document (@documents) {
    print $document->{name} . "\t". $document->{age} . "\n";
}