# HG changeset patch
# User Sergey
# Date 1264771171 -10800
# Node ID 1b1fb9d54f55b234b680afdd40172cc0ab4e7568
# Parent  32d2350fccf97083f00a7c4db57759e08f42f1ec
Starting web-application concept

diff -r 32d2350fccf9 -r 1b1fb9d54f55 Lib/IMPL/Object/Singleton.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Object/Singleton.pm	Fri Jan 29 16:19:31 2010 +0300
@@ -0,0 +1,14 @@
+package IMPL::Object::Singleton;
+use strict;
+use warnings;
+
+my %instances;
+
+sub instance {
+    my $self = shift;
+    
+    $instances{$self} || ($instances{$self} = $self->new(@_));
+}
+
+
+1;
diff -r 32d2350fccf9 -r 1b1fb9d54f55 Lib/IMPL/Web/Application.pm
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Lib/IMPL/Web/Application.pm	Fri Jan 29 16:19:31 2010 +0300
@@ -0,0 +1,15 @@
+package IMPL::Web::Application;
+use strict;
+use warnings;
+
+use base qw(IMPL::Object IMPL::Object::Singleton);
+
+
+
+1;
+
+=pod
+
+
+
+=cut
\ No newline at end of file