diff options
Diffstat (limited to 't')
-rwxr-xr-x | t/op/local.t | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/t/op/local.t b/t/op/local.t index 9f977b2cd4..d23b200022 100755 --- a/t/op/local.t +++ b/t/op/local.t @@ -130,6 +130,7 @@ print +(!defined $a[0]) ? "" : "not ", "ok 41\n"; sub TIEHASH { bless {}, $_[0] } sub STORE { print "# STORE [@_]\n"; $_[0]->{$_[1]} = $_[2] } sub FETCH { my $v = $_[0]->{$_[1]}; print "# FETCH [@_=$v]\n"; $v } + sub EXISTS { print "# EXISTS [@_]\n"; exists $_[0]->{$_[1]}; } sub DELETE { print "# DELETE [@_]\n"; delete $_[0]->{$_[1]}; } sub CLEAR { print "# CLEAR [@_]\n"; %{$_[0]} = (); } } |