Added guard to make sure values that cannot be read correctly aren't stored, plus...

[dbsrgits/DBM-Deep.git] / lib / DBM / Deep / Ref.pm

diff --git a/lib/DBM/Deep/Ref.pm b/lib/DBM/Deep/Ref.pm
index 1d03e04..6890536 100644 (file)
--- a/lib/DBM/Deep/Ref.pm
+++ b/lib/DBM/Deep/Ref.pm
@@ -1,4 +1,4 @@
-package DBM::Deep::Scalar;
+package DBM::Deep::Ref;
 
 use strict;
 
@@ -20,5 +20,16 @@ sub TIESCALAR {
     return $class->_init($args);
 }
 
+sub FETCH {
+    my $self = shift->_get_self;
+
+    #my $value = $self->
+}
+
+sub STORE {
+    my $self = shift->_get_self;
+    my ($value) = @_;
+}
+
 1;
 __END__