Removed all code that was for the attempt to support REF
rkinyon [Sat, 4 Mar 2006 03:44:47 +0000 (03:44 +0000)]
MANIFEST
lib/DBM/Deep/Engine.pm
lib/DBM/Deep/Ref.pm [deleted file]

index 2a7bca3..c53d2ab 100644 (file)
--- 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
index 195cfab..7a1a65c 100644 (file)
@@ -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 (file)
index 6890536..0000000
+++ /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__