changeset 21 | 298db85d9c1d |
parent 20 | 94281ba012c8 |
child 22 | 7690e12fafda |
--- 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;