From: rkinyon <rkinyon@50811bd7-b8ce-0310-adc1-d9db26280581>
Date: Sat, 4 Mar 2006 03:44:47 +0000 (+0000)
Subject: Removed all code that was for the attempt to support REF
X-Git-Tag: 0-99_01~77
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f160535e54b04a5bdc4f41ece80cdbd0eb961452;p=dbsrgits%2FDBM-Deep.git

Removed all code that was for the attempt to support REF
---

diff --git a/MANIFEST b/MANIFEST
index 2a7bca3..c53d2ab 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -8,7 +8,6 @@ lib/DBM/Deep.pm
 lib/DBM/Deep/Engine.pm
 lib/DBM/Deep/Array.pm
 lib/DBM/Deep/Hash.pm
-lib/DBM/Deep/Ref.pm
 t/01_basic.t
 t/02_hash.t
 t/03_bighash.t
diff --git a/lib/DBM/Deep/Engine.pm b/lib/DBM/Deep/Engine.pm
index 195cfab..7a1a65c 100644
--- a/lib/DBM/Deep/Engine.pm
+++ b/lib/DBM/Deep/Engine.pm
@@ -11,7 +11,6 @@ sub SIG_FILE     () { 'DPDB' }
 sub SIG_INTERNAL () { 'i'    }
 sub SIG_HASH     () { 'H'    }
 sub SIG_ARRAY    () { 'A'    }
-sub SIG_REF      () { 'R'    }
 sub SIG_NULL     () { 'N'    }
 sub SIG_DATA     () { 'D'    }
 sub SIG_INDEX    () { 'I'    }
diff --git a/lib/DBM/Deep/Ref.pm b/lib/DBM/Deep/Ref.pm
deleted file mode 100644
index 6890536..0000000
--- a/lib/DBM/Deep/Ref.pm
+++ /dev/null
@@ -1,35 +0,0 @@
-package DBM::Deep::Ref;
-
-use strict;
-
-use base 'DBM::Deep';
-
-sub _get_self {
-    eval { local $SIG{'__DIE__'}; tied( ${$_[0]} ) } || $_[0]
-}
-
-sub TIESCALAR {
-    ##
-    # Tied hash constructor method, called by Perl's tie() function.
-    ##
-    my $class = shift;
-    my $args = $class->_get_args( @_ );
-    
-    $args->{type} = $class->TYPE_SCALAR;
-
-    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__