Smalltalk pharo and mongodb

mongodb.st

| root database processes json template result|
root := Mongo default.
root open.

database := root databaseNamed: 'lean_namagement'.
processes := database addCollection: 'processes'.

json := Dictionary new.
json at: #name put: 'agnaldo'.
processes add: json.

template := Dictionary new.
template at: #name put: 'agnaldo'.
processes query: template.

result := OrderedCollection new.
processes do:[: process | 
		((process at: #name) beginsWith: 'ag') ifTrue: [ 
			result add: process 
		] 
	].