X-Git-Url: http://git.shiar.nl/perl/plp/.git/blobdiff_plain/0f5e78a789961923b45cae1a881c655fff9e7283..b5e0ee87251670be18b2f2fc128a4be0b25ebfb8:/PLP/Tie/Delay.pm

diff --git a/PLP/Tie/Delay.pm b/PLP/Tie/Delay.pm
deleted file mode 100644
index 022f424..0000000
--- a/PLP/Tie/Delay.pm
+++ /dev/null
@@ -1,73 +0,0 @@
-#--------------------------#
-  package PLP::Tie::Delay;
-#--------------------------#
-use strict;
-no strict 'refs';
-
-=head1 PLP::Tie::Delay
-
-Delays hash generation. Unties the hash on first access, and replaces it by the generated one.
-Uses symbolic references, because circular ties make Perl go nuts :)
-
-    tie %Some::hash, 'PLP::Tie::Delay', 'Some::hash', sub { \%generated_hash };
-
-=cut
-
-sub _replace {
-    my ($self) = @_;
-    untie %{$self->[0]};
-    %{$self->[0]} = %{ $self->[1]->() };
-}
-
-sub TIEHASH {
-    my ($class, $hash, $source) = @_;
-    return bless [$hash, $source], $class;
-}
-
-sub FETCH {
-    my ($self, $key) = @_;
-    $self->_replace;
-    return ${$self->[0]}{$key};
-}
-
-sub STORE {
-    my ($self, $key, $value) = @_;
-    $self->_replace;
-    return ${$self->[0]}{$key} = $value;
-}
-
-sub DELETE {
-    my ($self, $key) = @_;
-    $self->_replace;
-    return delete ${$self->[0]}{key};
-}
-
-sub CLEAR {
-    my ($self) = @_;
-    $self->_replace;
-    return %{$self->[0]};
-}
-
-sub EXISTS {
-    my ($self, $key) = @_;
-    $self->_replace;
-    return exists ${$self->[0]}{key};
-}
-
-sub FIRSTKEY {
-    my ($self) = @_;
-    $self->_replace;
-    return exists ${$self->[0]}{key};
-}
-
-sub NEXTKEY {
-    my ($self) = @_;
-    $self->_replace;
-    return each %$$self;
-}
-
-sub UNTIE   { }
-sub DESTORY { } 
-
-1;
-