+BEGIN
+{
+ sub Wrequire ($)
+ {
+ my($file)=@_;
+
+# print STDERR "Wrequire $file\n";
+ $file=~s#/#::#g;
+ $file=~s/[.]pm$//;
+ my $class=$file;
+ $file=~s#::#/#g;
+ $file.=".pm";
+ my $aref=($W->{"packages_used"}{$Apache::Registry::curstash}||=[]);
+ push @$aref,$class
+ if !{ map(($_=>1),@$aref) }->{$class}; # Prevent duplicated entries.
+ CORE::require $file;
+ 1; # Otherwise 'require' would already file above.
+ }
+
+ sub Wuse ($@)
+ {
+ my($file,@list)=@_;
+
+# print STDERR "Wuse $file\n";
+ Wrequire $file;
+ $file->import(@list);
+ 1;
+ }
+}
+
+BEGIN { Wuse 'WebConfig'; } # for %WebConfig