The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strictures 1;
use Mojito::Model::Transform;
use Data::Dumper::Concise;

# Transform each collection: notes, collection, users
my $t = Mojito::Model::Transform->new;
my @collections = @{ $t->collections };
foreach my $collection (@collections) {
    print "Collection: $collection\n";
    my @ids =$t->list_mongo_ids($collection);
    $t->transfer_records($collection, @ids);
}

warn Dumper $t->frigo->export if ($ARGV[0] && $ARGV[0] =~ /DEBUG/i);

1;