Changeset 13830

Timestamp:

06/13/08 22:45:55 (5 years ago)

Author:

topia

Message:

* support value deletion.

Files:

• lang/perl/tiarra/trunk/main/BulletinBoard.pm (modified) (2 diffs)

lang/perl/tiarra/trunk/main/BulletinBoard.pm

@@ -23 +23 @@
     my ($class_or_this,$key,$value) = @_;
     my $this = $class_or_this->_this;
-    $this->{table}->{$key} = $value;
+    if (defined $value) {
+        $this->{table}->{$key} = $value;
+    } else {
+        delete $this->{table}->{$key};
+    }
     $this;
 }
@@ -40 +44 @@
     # $board->foo_bar => $board->get('foo-bar')
     # $board->foo_bar('foo') => $board->set('foo-bar','foo');
-    my ($class_or_this,$newvalue) = @_;
+    my $class_or_this = shift;
     my $this = $class_or_this->_this;
     (my $key = $AUTOLOAD) =~ s/.+?:://g;
     $key =~ s/_/-/g;
 
-    if (defined $newvalue) {
-        $this->set($key,$newvalue);
+    if (@_ > 0) {
+        $this->set($key, @_);
     }
     else {