--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/DOM.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,19 @@
+package DOM;
+require DOM::Site;
+use Common;
+
+my $GlobalSite;
+
+sub Site {
+    my $self = shift;
+    
+    $GlobalSite = construct DOM::Site if not $GlobalSite;
+    return $GlobalSite;
+}
+
+sub Cleanup {
+    $GlobalSite->Dispose if $GlobalSite;
+    undef $GlobalSite;
+}
+
+1;
\ No newline at end of file