equal
deleted
inserted
replaced
116 } |
116 } |
117 |
117 |
118 sub clear_timeout { |
118 sub clear_timeout { |
119 } |
119 } |
120 |
120 |
121 sub TIESCALAR { |
|
122 my $class = shift; |
|
123 my ($ip) = @_; |
|
124 my $self = bless {} => $class; |
|
125 warn "tied to ip $ip\n"; |
|
126 |
|
127 return $self; |
|
128 } |
|
129 |
|
130 sub STORE { |
|
131 my $self = shift; |
|
132 my ($key, $value) = @_; |
|
133 |
|
134 #croak "invalid value \"$value\" (should be 0 or 1)\n"; |
|
135 warn "Set $key to $value\n"; |
|
136 } |
|
137 |
|
138 sub _tx { |
121 sub _tx { |
139 my $self = shift; |
122 my $self = shift; |
140 my $cmd = shift; |
123 my $cmd = shift; |
141 |
124 |
142 $cmd =~ s/[^A-Z\d]//ig; |
125 $cmd =~ s/[^A-Z\d]//ig; |