if (@_) { 
    \$self->{$_} = shift;
    }