git.shiar.nl
/
perl
/
plp
/
.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update author's email address
[perl/plp/.git]
/
PLP
/
Tie
/
Delay.pm
diff --git
a/PLP/Tie/Delay.pm
b/PLP/Tie/Delay.pm
index 267b6204b0c6363fda746528c6f2f1cf81380e22..ea136b83091c835f00fbf86144d9e01f50573db1 100644
(file)
--- a/
PLP/Tie/Delay.pm
+++ b/
PLP/Tie/Delay.pm
@@
-17,55
+17,55
@@
This module is part of the PLP internals and probably not of any use to others.
sub _replace {
my ($self) = @_;
sub _replace {
my ($self) = @_;
- untie %{
$self->[0]
};
- %{
$self->[0]
} = %{ $self->[1]->() };
+ untie %{
$self->[0]
};
+ %{
$self->[0]
} = %{ $self->[1]->() };
}
sub TIEHASH {
my ($class, $hash, $source) = @_;
}
sub TIEHASH {
my ($class, $hash, $source) = @_;
- return bless [
$hash, $source
], $class;
+ return bless [
$hash, $source
], $class;
}
sub FETCH {
my ($self, $key) = @_;
$self->_replace;
}
sub FETCH {
my ($self, $key) = @_;
$self->_replace;
- return ${
$self->[0]
}{$key};
+ return ${
$self->[0]
}{$key};
}
sub STORE {
my ($self, $key, $value) = @_;
$self->_replace;
}
sub STORE {
my ($self, $key, $value) = @_;
$self->_replace;
- return ${
$self->[0]
}{$key} = $value;
+ return ${
$self->[0]
}{$key} = $value;
}
sub DELETE {
my ($self, $key) = @_;
$self->_replace;
}
sub DELETE {
my ($self, $key) = @_;
$self->_replace;
- return delete ${
$self->[0]}{
key};
+ return delete ${
$self->[0] }{$
key};
}
sub CLEAR {
my ($self) = @_;
$self->_replace;
}
sub CLEAR {
my ($self) = @_;
$self->_replace;
- return %{
$self->[0]
};
+ return %{
$self->[0]
};
}
sub EXISTS {
my ($self, $key) = @_;
$self->_replace;
}
sub EXISTS {
my ($self, $key) = @_;
$self->_replace;
- return exists ${
$self->[0]}{
key};
+ return exists ${
$self->[0] }{$
key};
}
sub FIRSTKEY {
my ($self) = @_;
$self->_replace;
}
sub FIRSTKEY {
my ($self) = @_;
$self->_replace;
- return
exists ${$self->[0]}{key}
;
+ return
'PLPdummy'
;
}
sub NEXTKEY {
my ($self) = @_;
}
sub NEXTKEY {
my ($self) = @_;
- $self->_replace;
- return
each %$$sel
f;
+ # Let's hope this never happens. (It's shouldn't.)
+ return
unde
f;
}
sub UNTIE { }
}
sub UNTIE { }