+} # FETCH
+
+sub STORE {
+ my ($this, $option, $val) = @_;
+ if ($option eq "-langpref") {
+ # set order of languages (prefered language first)
+ $this->{$option} = $val;
+ } # -langpref
+ else {
+ $this->{$option} = $val;
+# $_[0]->{$_[1]} = $_[2];
+ }
+} # STORE