Mercurial > pub > Impl

diff _test/Test/Web/Application.pm @ 194:4d0e1962161c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Replaced tabs with spaces IMPL::Web::View - fixed document model, new features (control classes, document constructor parameters)
author cin
date Tue, 10 Apr 2012 20:08:29 +0400
parents d1676be8afcc
children
line wrap: on
line diff
--- a/_test/Test/Web/Application.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/_test/Test/Web/Application.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -9,34 +9,34 @@
 __PACKAGE__->PassThroughArgs;
 
 sub CTOR {
-	# simulate CGI environment
-	
-	$ENV{PATH_TRANSLATED} = "Resources/simple.tt";
+    # simulate CGI environment
+    
+    $ENV{PATH_TRANSLATED} = "Resources/simple.tt";
 }
 
 test SpawnApp => sub {
-	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
-	
-	return 1;
+    my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
+    
+    return 1;
 };
 
 test ActivateOnDemand => sub {
-	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
-	
-	my $ds = $instance->dataSource;
-	
-	return 1;
+    my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
+    
+    my $ds = $instance->dataSource;
+    
+    return 1;
 };
 
 test SaveXml => sub {
-	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
-	
-	$instance->xml or failed "xml property is invalid";	
+    my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
+    
+    $instance->xml or failed "xml property is invalid";    
 };
 
 test Run => sub {
-	my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
-	$instance->Run();
+    my $instance = spawn Test::Web::Application::Instance('Resources/app.xml');
+    $instance->Run();
 };
 
 package Test::Web::Application::Instance;
@@ -47,10 +47,10 @@
 use IMPL::Class::Property;
 
 BEGIN {
-	public property name => prop_all;
-	public property options => prop_all;
-	public property dataSource => prop_all;
-	public property securityMod => prop_all;
+    public property name => prop_all;
+    public property options => prop_all;
+    public property dataSource => prop_all;
+    public property securityMod => prop_all;
 }