diff Lib/IMPL/Web/Application.pm @ 170:b88b7fe60aa3

refactoring
author sourcer
date Tue, 24 May 2011 01:11:16 +0400
parents 4267a2ac3d46
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application.pm	Tue May 17 00:04:28 2011 +0400
+++ b/Lib/IMPL/Web/Application.pm	Tue May 24 01:11:16 2011 +0400
@@ -12,20 +12,19 @@
 
 __PACKAGE__->PassThroughArgs;
 
-BEGIN {
-    public property handlerError => prop_all;
-    public property actionFactory => prop_all;
-    public property handlersQuery => prop_all | prop_list;
-    public property responseCharset => prop_all;
-    public property security => prop_all;
-    public property options => prop_all;
-    public property fetchRequestMethod => prop_all;
-}
+public property handlerError => prop_all;
+public property actionFactory => prop_all;
+public property handlersQuery => prop_all | prop_list;
+public property responseCharset => prop_all;
+public property security => prop_all;
+public property options => prop_all;
+public property fetchRequestMethod => prop_all;
+
 
 sub CTOR {
 	my ($this) = @_;
 	
-	$this->actionFactory('IMPL::Web::Application::Action') unless $this->actionFactory;
+	$this->actionFactory(typeof IMPL::Web::Application::Action) unless $this->actionFactory;
 	$this->responseCharset('utf-8') unless $this->responseCharset;
 	$this->fetchRequestMethod(\&defaultFetchRequest) unless $this->fetchRequestMethod;
 	$this->handlerError(\&defaultHandlerError) unless $this->handlerError;