php mongodb oid,use MongoDB::OID;

#!/usr/bin/perl

use warnings;

use strict;

use Data::Dumper;

use MongoDB;

use MongoDB::OID;

my $con = MongoDB::Connection->new;

my $db = $con->syncrobid;

my $account_col = $db->account;

$account_col->remove;

my $account_data = {

# _id will be created automatically

company_name => '',

username => '',

subscription_id => '', # used for Authorize.net

fax => '',

phone => '',

address => {

street => '',

city => '',

state => '',

zip => ''

},

users => [

{

_id => MongoDB::OID->new,

f_name => '',

l_name => '',

phone => '',

ext => '',

mobile => '',

email => '',

tasks => [ '', '', '' ],

settings => {

admin => 1,

block_email => 1

}

}

],

projects => [

{

_id => MongoDB::OID->new,

name => '',

area => '',

union_status => '',

users => [], # Like a has_many relationship, retrieve to get a list of users ids that are working on this current project

task => [ qw// ],

revision => [

{

_id => MongoDB::OID->new,

name => '',

due_date => DateTime->now,

created_timestamp => DateTime->now,

files => [ qw// ]

},

{

_id => MongoDB::OID->new,

name => '',

due_date => DateTime->now,

created_timestamp => DateTime->now,

files => [ qw// ]

}

],

settings => { # these settings override global settings

auto_release_plans => 1

}

}

],

gallery => [

{

_id => MongoDB::OID->new,

project_name => '',

location => '',

comments => [ qw// ]

},

{

_id => MongoDB::OID->new,

project_name => '',

location => ''

}

],

settings => { # Set per account_type

auto_release_plans => 1,

hide_general_email => 1

}

};

my $account_id = $account_col->insert( $account_data );

print Dumper( $account_col->find_one({ "_id" => $account_id }) );