line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package MorboDB; |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
# ABSTRACT: In-memory database, mostly-compatible clone of MongoDB |
4
|
|
|
|
|
|
|
|
5
|
4
|
|
|
4
|
|
98568
|
use Moo; |
|
4
|
|
|
|
|
93774
|
|
|
4
|
|
|
|
|
26
|
|
6
|
4
|
|
|
4
|
|
8110
|
use Carp; |
|
4
|
|
|
|
|
7
|
|
|
4
|
|
|
|
|
324
|
|
7
|
4
|
|
|
4
|
|
2335
|
use MorboDB::Database; |
|
4
|
|
|
|
|
89
|
|
|
4
|
|
|
|
|
1056
|
|
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
our $VERSION = "1.000000"; |
10
|
|
|
|
|
|
|
$VERSION = eval $VERSION; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
=head1 NAME |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
MorboDB - In-memory database, mostly-compatible clone of MongoDB |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=head1 VERSION |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
version 1.000000 |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 SYNOPSIS |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
use MorboDB; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
# MorboDB usage is meant to refelect MongoDB usage |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
my $morbo = MorboDB->new; |
27
|
|
|
|
|
|
|
my $database = $morbo->get_database('my_database'); |
28
|
|
|
|
|
|
|
my $collection = $database->get_collection('users'); |
29
|
|
|
|
|
|
|
|
30
|
|
|
|
|
|
|
my $id = $collection->insert({ |
31
|
|
|
|
|
|
|
username => 'someguy98', |
32
|
|
|
|
|
|
|
password => 's3cr3t', |
33
|
|
|
|
|
|
|
email => 'email at address dot com', |
34
|
|
|
|
|
|
|
}); |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
... |
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
=head1 DESCRIPTION |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
MorboDB is an in-memory database, meant to be a mostly-compatible clone |
41
|
|
|
|
|
|
|
of Perl's L driver, in such a way that it can be used to replace |
42
|
|
|
|
|
|
|
or even supplement MongoDB in applications where it might be useful. |
43
|
|
|
|
|
|
|
|
44
|
|
|
|
|
|
|
=head2 USE CASES |
45
|
|
|
|
|
|
|
|
46
|
|
|
|
|
|
|
An in-memory database can be useful for many purposes. A common use case |
47
|
|
|
|
|
|
|
is testing purposes, where using a "physical" database might be onerous. |
48
|
|
|
|
|
|
|
You can already find a few in-memory databases on CPAN, such as L, |
49
|
|
|
|
|
|
|
L (has optional support for in-memory |
50
|
|
|
|
|
|
|
databases) and L (which has an in-memory hash serializer). |
51
|
|
|
|
|
|
|
I'm sure there are others more. |
52
|
|
|
|
|
|
|
|
53
|
|
|
|
|
|
|
I decided to develop MorboDB for two main purposes: |
54
|
|
|
|
|
|
|
|
55
|
|
|
|
|
|
|
=over |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
=item * B: at work I am currently developing a |
58
|
|
|
|
|
|
|
very critical application that uses MongoDB (with replica-sets setup) as |
59
|
|
|
|
|
|
|
a database backend. This application cannot afford to suffer downtimes. |
60
|
|
|
|
|
|
|
The application's database has some constant data (not too much) that shouldn't change |
61
|
|
|
|
|
|
|
which is completely required for it to work. Most of the data, however, |
62
|
|
|
|
|
|
|
is dynamically written due to user's work and is not as important, so it |
63
|
|
|
|
|
|
|
wouldn't matter if the database won't be able to take such writes for some time. |
64
|
|
|
|
|
|
|
|
65
|
|
|
|
|
|
|
Therefore, I have decided to build a fail-safe: when the application is launched (actually |
66
|
|
|
|
|
|
|
I haven't decided yet if on launch or not), the constant data is loaded into |
67
|
|
|
|
|
|
|
MorboDB, which silently waits in the background. If for some reason the |
68
|
|
|
|
|
|
|
MongoDB database crashes, the application switches to MorboDB and the application |
69
|
|
|
|
|
|
|
continues to work - the users don't even notice something happend. Since |
70
|
|
|
|
|
|
|
MorboDB provides mostly the same syntax as MongoDB, this isn't very far-fetched |
71
|
|
|
|
|
|
|
codewise. |
72
|
|
|
|
|
|
|
|
73
|
|
|
|
|
|
|
=item * B: I am also working on a content management |
74
|
|
|
|
|
|
|
system in which I want to allow users to undo changes for a certain duration |
75
|
|
|
|
|
|
|
(say 30 seconds) after the changes have been made. MorboDB can work as |
76
|
|
|
|
|
|
|
a bridge between the application and the actual MongoDB database (or whatever |
77
|
|
|
|
|
|
|
actually). So the data will only live in MorboDB for 30 seconds, and if the user decides |
78
|
|
|
|
|
|
|
to undo, the data is removed and nothing happens. Otherwise, the data is |
79
|
|
|
|
|
|
|
moved to MongoDB after the 30 seconds are over. |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
=back |
82
|
|
|
|
|
|
|
|
83
|
|
|
|
|
|
|
=head2 MOSTLY-COMPATIBLE? |
84
|
|
|
|
|
|
|
|
85
|
|
|
|
|
|
|
As I've mentioned, MorboDB is I with L. First |
86
|
|
|
|
|
|
|
of all, a lot of things that are relevant for MongoDB are not relevant for |
87
|
|
|
|
|
|
|
in-memory database. Some things aren't supported and probably never will, |
88
|
|
|
|
|
|
|
like GridFS for example. Otherwise, the syntax is almost completely the |
89
|
|
|
|
|
|
|
same (by relying on L), apart for some changes detailed in both |
90
|
|
|
|
|
|
|
L and L"INCOMPATIBILITIES WITH MONGODB">. |
91
|
|
|
|
|
|
|
|
92
|
|
|
|
|
|
|
I have provided most methods provided by relevant MongoDB modules, even where |
93
|
|
|
|
|
|
|
they're not really implemented (in which case they either return 1 or an |
94
|
|
|
|
|
|
|
undefined value). Read the documentation of MorboDB's different modules |
95
|
|
|
|
|
|
|
for information on every method and whether it's implemented or not. These |
96
|
|
|
|
|
|
|
methods are only provided to make it possible to use MorboDB as a drop-in |
97
|
|
|
|
|
|
|
replacement of MongoDB where appropriate (so you don't get "undefined subroutine" |
98
|
|
|
|
|
|
|
errors). Please let me know if there are methods you need (even unimplemented) |
99
|
|
|
|
|
|
|
that I haven't provided. |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
Note that autoloading of database and collection objects has been deprecated |
102
|
|
|
|
|
|
|
since version 1.0.0, in accordance with MongoDB. |
103
|
|
|
|
|
|
|
|
104
|
|
|
|
|
|
|
=head2 STATUS |
105
|
|
|
|
|
|
|
|
106
|
|
|
|
|
|
|
This module is beta software, not suitable for production use yet. Feel |
107
|
|
|
|
|
|
|
free to test it and let me know how it works for you (of course, not on |
108
|
|
|
|
|
|
|
production), I'd be happy to receive any bug reports, requests, ideas, etc. |
109
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
=cut |
111
|
|
|
|
|
|
|
|
112
|
|
|
|
|
|
|
has '_dbs' => (is => 'ro', default => sub { {} }); |
113
|
|
|
|
|
|
|
|
114
|
|
|
|
|
|
|
=head1 OBJECT METHODS |
115
|
|
|
|
|
|
|
|
116
|
|
|
|
|
|
|
=head2 database_names() |
117
|
|
|
|
|
|
|
|
118
|
|
|
|
|
|
|
Returns a list with the names of all existing databases. |
119
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
=cut |
121
|
|
|
|
|
|
|
|
122
|
0
|
|
|
0
|
1
|
0
|
sub database_names { sort keys %{$_[0]->_dbs} } |
|
0
|
|
|
|
|
0
|
|
123
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
=head2 get_database( $name ) |
125
|
|
|
|
|
|
|
|
126
|
|
|
|
|
|
|
Returns a L object with the given name: |
127
|
|
|
|
|
|
|
|
128
|
|
|
|
|
|
|
my $morbodb = MorboDB->new; |
129
|
|
|
|
|
|
|
|
130
|
|
|
|
|
|
|
my $db = $morbodb->get_database('mydb'); |
131
|
|
|
|
|
|
|
|
132
|
|
|
|
|
|
|
=cut |
133
|
|
|
|
|
|
|
|
134
|
|
|
|
|
|
|
sub get_database { |
135
|
3
|
|
|
3
|
1
|
1585
|
my ($self, $name) = @_; |
136
|
|
|
|
|
|
|
|
137
|
3
|
50
|
|
|
|
16
|
confess "You must provide the name of the database to get." |
138
|
|
|
|
|
|
|
unless $name; |
139
|
|
|
|
|
|
|
|
140
|
3
|
|
33
|
|
|
49
|
return $self->_dbs->{$name} ||= MorboDB::Database->new(_top => $self, name => $name); |
141
|
|
|
|
|
|
|
} |
142
|
|
|
|
|
|
|
|
143
|
|
|
|
|
|
|
=head2 get_master() |
144
|
|
|
|
|
|
|
|
145
|
|
|
|
|
|
|
Not implemented, simply returns a true value here. |
146
|
|
|
|
|
|
|
|
147
|
|
|
|
|
|
|
=cut |
148
|
|
|
|
|
|
|
|
149
|
0
|
|
|
0
|
1
|
|
sub get_master { 1 } # not implemented |
150
|
|
|
|
|
|
|
|
151
|
|
|
|
|
|
|
=head1 CAVEATS |
152
|
|
|
|
|
|
|
|
153
|
|
|
|
|
|
|
Currently (not sure if this will change), MorboDB does not work in shared |
154
|
|
|
|
|
|
|
memory, so if your application is multi-threaded, every thread will have |
155
|
|
|
|
|
|
|
its own MorboDB container completely separate and unaware of other threads. |
156
|
|
|
|
|
|
|
|
157
|
|
|
|
|
|
|
=head1 DIAGNOSTICS |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
This module throws the following errors: |
160
|
|
|
|
|
|
|
|
161
|
|
|
|
|
|
|
=over |
162
|
|
|
|
|
|
|
|
163
|
|
|
|
|
|
|
=item C<< "You must provide the name of the database to get." >> |
164
|
|
|
|
|
|
|
|
165
|
|
|
|
|
|
|
Thrown by C if you don't provide it with the name of the |
166
|
|
|
|
|
|
|
database you want to get/create. |
167
|
|
|
|
|
|
|
|
168
|
|
|
|
|
|
|
=back |
169
|
|
|
|
|
|
|
|
170
|
|
|
|
|
|
|
=head1 CONFIGURATION AND ENVIRONMENT |
171
|
|
|
|
|
|
|
|
172
|
|
|
|
|
|
|
MorboDB requires no configuration files or environment variables. |
173
|
|
|
|
|
|
|
|
174
|
|
|
|
|
|
|
=head1 DEPENDENCIES |
175
|
|
|
|
|
|
|
|
176
|
|
|
|
|
|
|
MorboDB depends on the following CPAN modules: |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
=over |
179
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
=item * L |
181
|
|
|
|
|
|
|
|
182
|
|
|
|
|
|
|
=item * L |
183
|
|
|
|
|
|
|
|
184
|
|
|
|
|
|
|
=item * L |
185
|
|
|
|
|
|
|
|
186
|
|
|
|
|
|
|
=item * L |
187
|
|
|
|
|
|
|
|
188
|
|
|
|
|
|
|
=item * L |
189
|
|
|
|
|
|
|
|
190
|
|
|
|
|
|
|
=item * L |
191
|
|
|
|
|
|
|
|
192
|
|
|
|
|
|
|
=back |
193
|
|
|
|
|
|
|
|
194
|
|
|
|
|
|
|
=head1 INCOMPATIBILITIES WITH MONGODB |
195
|
|
|
|
|
|
|
|
196
|
|
|
|
|
|
|
While I hope to make MorboDB as much of a clone of the L driver |
197
|
|
|
|
|
|
|
as possible (syntax and usage-wise), some changes are inevitable. Currently, |
198
|
|
|
|
|
|
|
only the most essential features of the MongoDB distribution are implemented. |
199
|
|
|
|
|
|
|
That means you can insert documents as you would with MongoDB, update |
200
|
|
|
|
|
|
|
documents and remove documents. You can find documents and work with cursor |
201
|
|
|
|
|
|
|
pretty much the same, including sorting and other cursor modifications. |
202
|
|
|
|
|
|
|
|
203
|
|
|
|
|
|
|
Syntaxwise, any differences between MorboDB and MongoDB stem from the usage |
204
|
|
|
|
|
|
|
of L as the parser, so read L |
205
|
|
|
|
|
|
|
for a list of differences. |
206
|
|
|
|
|
|
|
|
207
|
|
|
|
|
|
|
Another difference worth noting is with OIDs. In MongoDB, OIDs (the automatic |
208
|
|
|
|
|
|
|
ones at least) are 24 characters long hexadecimal strings, and are created |
209
|
|
|
|
|
|
|
by the L module. In MorboDB, however, OIDs (also, only the |
210
|
|
|
|
|
|
|
automatic ones) are 36 characters long UUIDs. This alone limits your ability |
211
|
|
|
|
|
|
|
to use MorboDB alongside MongoDB in an application if you perform queries |
212
|
|
|
|
|
|
|
on the C<_id> attribute with known MongoDB::OID objects. Other than that, |
213
|
|
|
|
|
|
|
this shouldn't really be a problem. |
214
|
|
|
|
|
|
|
|
215
|
|
|
|
|
|
|
Featurewise, most differences should be missing or unimplemented methods |
216
|
|
|
|
|
|
|
(and a few missing classes). I have taken some care not to miss any methods provided by the MongoDB |
217
|
|
|
|
|
|
|
distribution, but I may have missed some. Where methods are unimplemented, |
218
|
|
|
|
|
|
|
MorboDB will simply return a true or false value (as appropriate). Please |
219
|
|
|
|
|
|
|
read the documentation of each MorboDB module to learn what to expect from |
220
|
|
|
|
|
|
|
unimplemented methods (and implemented methods of course). |
221
|
|
|
|
|
|
|
|
222
|
|
|
|
|
|
|
Some features that are native to MongoDB itself (and not just the L |
223
|
|
|
|
|
|
|
distribution on CPAN) will never be implemented in MorboDB (most of them |
224
|
|
|
|
|
|
|
don't even make sense in an in-memory database). |
225
|
|
|
|
|
|
|
|
226
|
|
|
|
|
|
|
Here's a (probably incomplete) list of MongoDB features missing from MongoDB: |
227
|
|
|
|
|
|
|
|
228
|
|
|
|
|
|
|
=over |
229
|
|
|
|
|
|
|
|
230
|
|
|
|
|
|
|
=item * Authentication |
231
|
|
|
|
|
|
|
|
232
|
|
|
|
|
|
|
=item * Indexing (may be supported in the future, don't think so though) |
233
|
|
|
|
|
|
|
|
234
|
|
|
|
|
|
|
=item * Replication |
235
|
|
|
|
|
|
|
|
236
|
|
|
|
|
|
|
=item * Sharding |
237
|
|
|
|
|
|
|
|
238
|
|
|
|
|
|
|
=item * Map/Reduce |
239
|
|
|
|
|
|
|
|
240
|
|
|
|
|
|
|
=item * GridFS |
241
|
|
|
|
|
|
|
|
242
|
|
|
|
|
|
|
=back |
243
|
|
|
|
|
|
|
|
244
|
|
|
|
|
|
|
=head1 INCOMPATIBILITIES WITH OTHER MODULES |
245
|
|
|
|
|
|
|
|
246
|
|
|
|
|
|
|
None reported. |
247
|
|
|
|
|
|
|
|
248
|
|
|
|
|
|
|
=head1 BUGS AND LIMITATIONS |
249
|
|
|
|
|
|
|
|
250
|
|
|
|
|
|
|
No bugs have been reported. |
251
|
|
|
|
|
|
|
|
252
|
|
|
|
|
|
|
Please report any bugs or feature requests to |
253
|
|
|
|
|
|
|
C, or through the web interface at |
254
|
|
|
|
|
|
|
L. |
255
|
|
|
|
|
|
|
|
256
|
|
|
|
|
|
|
=head1 SEE ALSO |
257
|
|
|
|
|
|
|
|
258
|
|
|
|
|
|
|
L, L, L, L. |
259
|
|
|
|
|
|
|
|
260
|
|
|
|
|
|
|
=head1 AUTHOR |
261
|
|
|
|
|
|
|
|
262
|
|
|
|
|
|
|
Ido Perlmuter |
263
|
|
|
|
|
|
|
|
264
|
|
|
|
|
|
|
=head1 LICENSE AND COPYRIGHT |
265
|
|
|
|
|
|
|
|
266
|
|
|
|
|
|
|
Copyright (c) 2011-2013, Ido Perlmuter C<< ido@ido50.net >>. |
267
|
|
|
|
|
|
|
|
268
|
|
|
|
|
|
|
This module is free software; you can redistribute it and/or |
269
|
|
|
|
|
|
|
modify it under the same terms as Perl itself, either version |
270
|
|
|
|
|
|
|
5.8.1 or any later version. See L |
271
|
|
|
|
|
|
|
and L. |
272
|
|
|
|
|
|
|
|
273
|
|
|
|
|
|
|
The full text of the license can be found in the |
274
|
|
|
|
|
|
|
LICENSE file included with this module. |
275
|
|
|
|
|
|
|
|
276
|
|
|
|
|
|
|
=head1 DISCLAIMER OF WARRANTY |
277
|
|
|
|
|
|
|
|
278
|
|
|
|
|
|
|
BECAUSE THIS SOFTWARE IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY |
279
|
|
|
|
|
|
|
FOR THE SOFTWARE, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN |
280
|
|
|
|
|
|
|
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES |
281
|
|
|
|
|
|
|
PROVIDE THE SOFTWARE "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER |
282
|
|
|
|
|
|
|
EXPRESSED OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED |
283
|
|
|
|
|
|
|
WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE |
284
|
|
|
|
|
|
|
ENTIRE RISK AS TO THE QUALITY AND PERFORMANCE OF THE SOFTWARE IS WITH |
285
|
|
|
|
|
|
|
YOU. SHOULD THE SOFTWARE PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL |
286
|
|
|
|
|
|
|
NECESSARY SERVICING, REPAIR, OR CORRECTION. |
287
|
|
|
|
|
|
|
|
288
|
|
|
|
|
|
|
IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING |
289
|
|
|
|
|
|
|
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR |
290
|
|
|
|
|
|
|
REDISTRIBUTE THE SOFTWARE AS PERMITTED BY THE ABOVE LICENCE, BE |
291
|
|
|
|
|
|
|
LIABLE TO YOU FOR DAMAGES, INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL, |
292
|
|
|
|
|
|
|
OR CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OR INABILITY TO USE |
293
|
|
|
|
|
|
|
THE SOFTWARE (INCLUDING BUT NOT LIMITED TO LOSS OF DATA OR DATA BEING |
294
|
|
|
|
|
|
|
RENDERED INACCURATE OR LOSSES SUSTAINED BY YOU OR THIRD PARTIES OR A |
295
|
|
|
|
|
|
|
FAILURE OF THE SOFTWARE TO OPERATE WITH ANY OTHER SOFTWARE), EVEN IF |
296
|
|
|
|
|
|
|
SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE POSSIBILITY OF |
297
|
|
|
|
|
|
|
SUCH DAMAGES. |
298
|
|
|
|
|
|
|
|
299
|
|
|
|
|
|
|
=cut |
300
|
|
|
|
|
|
|
|
301
|
|
|
|
|
|
|
__PACKAGE__->meta->make_immutable; |
302
|
|
|
|
|
|
|
__END__ |