+ my $pkg = shift;
+ my $key = shift;
+
+ if (!%$Config)
+ {
+ read_config ();
+ }
+
+ return ($Config->{$key});
+}
+
+=item LiCoM::Config-E<gt>B<set_config> (I<$key>, I<$value>)
+
+Sets the value of I<$key> to I<$value>.
+
+=cut
+
+sub set_config
+{
+ my $pkg = shift;
+ my $key = shift;
+ my $val = shift;
+
+ $Config->{$key} = $val;
+}
+
+=item LiCoM::Config-E<gt>B<read_config> ([I<@files>])
+
+Read the config from the files given or F</etc/licom/licom.conf> and
+F<~/.licomrc> if no files were given.
+
+=cut
+
+sub read_config
+{