# HG changeset patch # User Heiko Schlittermann # Date 1232563478 -3600 # Node ID 298db85d9c1d2008e09812e8869d80bba2913014 # Parent 94281ba012c80644e0b0ddd52ce7820e7f3e8d06 Removed the approach with tie'ed objects. This can be implemented later. diff -r 94281ba012c8 -r 298db85d9c1d lib/Quancom.pm --- a/lib/Quancom.pm Tue Jan 06 22:52:09 2009 +0100 +++ b/lib/Quancom.pm Wed Jan 21 19:44:38 2009 +0100 @@ -118,23 +118,6 @@ sub clear_timeout { } -sub TIESCALAR { - my $class = shift; - my ($ip) = @_; - my $self = bless {} => $class; - warn "tied to ip $ip\n"; - - return $self; -} - -sub STORE { - my $self = shift; - my ($key, $value) = @_; - - #croak "invalid value \"$value\" (should be 0 or 1)\n"; - warn "Set $key to $value\n"; -} - sub _tx { my $self = shift; my $cmd = shift;