--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/DOM/Providers/Security.pm	Tue Jul 14 12:54:37 2009 +0400
@@ -0,0 +1,19 @@
+use strict;
+
+package DOM::Providers::Security;
+use Security;
+
+sub GetProviderInfo {
+    return {
+        Name => 'Security',
+        Host => 'DOM::Site',
+        Objects => {
+            Session => \&GetSession
+        }
+    }
+}
+
+sub GetSession {
+    return Security->CurrentSession;
+}
+1;
\ No newline at end of file