lib/Quancom.pm
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;