cvsuser 02/04/05 14:02:41
Modified: P5EEx/Blue/P5EEx/Blue SharedDatastore.pm
Log:
more doc/definition
Revision Changes Path
1.2 +54 -4 p5ee/P5EEx/Blue/P5EEx/Blue/SharedDatastore.pm
Index: SharedDatastore.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/SharedDatastore.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -w -r1.1 -r1.2
--- SharedDatastore.pm 19 Mar 2002 22:51:06 -0000 1.1
+++ SharedDatastore.pm 5 Apr 2002 22:02:41 -0000 1.2
@@ -1,6 +1,6 @@
#############################################################################
-## $Id: SharedDatastore.pm,v 1.1 2002/03/19 22:51:06 spadkins Exp $
+## $Id: SharedDatastore.pm,v 1.2 2002/04/05 22:02:41 spadkins Exp $
#############################################################################
package P5EEx::Blue::SharedDatastore;
@@ -42,6 +42,8 @@
=item * Class: P5EEx::Blue::SharedDatastore
+=item * Class: P5EEx::Blue::SharedDatastore::Repository
+
=item * Class: P5EEx::Blue::SharedDatastore::IPCMM
=item * Class: P5EEx::Blue::SharedDatastore::DBI
@@ -67,8 +69,10 @@
A SharedDatastore service represents a single hash in which scalars or
deep references may be stored. (They are automatically serialized using
Storable for storage.)
+
It is essentially identical to an MLDBM, but it supports more
-implementations than an MLDBM, and it does not support the "tie" interface.
+implementations than an MLDBM (MLDBM is one of the implementations).
+It also does not support the "tie" interface.
* Throws: P5EEx::Blue::Exception::SharedDatastore
* Since: 0.01
@@ -125,8 +129,34 @@
sub get {
my ($self, $key) = @_;
- my ($value);
- $value;
+ return($self->{$key}); #dummy implementation
+}
+
+#############################################################################
+# free()
+#############################################################################
+
+=head2 free()
+
+ * Signature: $sds->free($key);
+ * Param: $key string
+ * Return: void
+ * Throws: P5EEx::Blue::Exception::SharedDatastore
+ * Since: 0.01
+
+ Sample Usage:
+
+ $context = P5EEx::Blue::P5EE->context();
+ $sds = $context->service("SharedDatastore");
+ $hash = $sds->get("user.spadkins");
+ print %$hash, "\n";
+ $sds->free("user.spadkins"); # indicate that others may modify it
+
+=cut
+
+sub get {
+ my ($self, $key) = @_;
+ return($self->{$key}); #dummy implementation
}
#############################################################################
@@ -153,6 +183,7 @@
sub set {
my ($self, $key, $value) = @_;
+ $self->{$key} = $value; #dummy implementation
}
#############################################################################
@@ -181,6 +212,25 @@
=cut
sub service_type () { 'SharedDatastore'; }
+
+#############################################################################
+# Method: serialize()
+#############################################################################
+
+=head2 serialize()
+
+ * Signature: $blob = $self->serialize($ref);
+ * Param: $ref any
+ * Return: $blob scalar
+ * Since: 0.01
+
+ $blob = $self->serialize($ref);
+
+=cut
+
+sub serialize {
+ my ($self, $ref) = @_;
+}
=head1 ACKNOWLEDGEMENTS
