Mercurial > pub > Impl

diff Lib/IMPL/Class/Template.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/Lib/IMPL/Class/Template.pm	Tue Apr 10 08:13:22 2012 +0400
+++ b/Lib/IMPL/Class/Template.pm	Tue Apr 10 20:08:29 2012 +0400
@@ -4,10 +4,10 @@
 use IMPL::_core::version;
 
 sub makeName {
-	my ($class,@params) = @_;
-	
-	$_ =~ s/^.*::(\w+)$/$1/ foreach @params;
-	return join('',$class,@params);
+    my ($class,@params) = @_;
+    
+    $_ =~ s/^.*::(\w+)$/$1/ foreach @params;
+    return join('',$class,@params);
 }
 
 1;
@@ -29,19 +29,19 @@
 use IMPL::Class::Property;
 
 use IMPL::template (
-	parameters => [qw(TKey TValue))],
-	base => [qw(IMPL::Object IMPL::Object::Autofill)],
-	declare => sub {
-		my ($class) = @_;
-		public $class->CreateProperty(key => prop_get | owner_set, { type => $class->TKey } );
-		public $class->CreateProperty(value => prop_all, { type => $class->TValue} );
-		
-		$class->PassThroughArgs;
-	}
+    parameters => [qw(TKey TValue))],
+    base => [qw(IMPL::Object IMPL::Object::Autofill)],
+    declare => sub {
+        my ($class) = @_;
+        public $class->CreateProperty(key => prop_get | owner_set, { type => $class->TKey } );
+        public $class->CreateProperty(value => prop_all, { type => $class->TValue} );
+        
+        $class->PassThroughArgs;
+    }
 );
 
 BEGIN {
-	public property id => prop_get | owner_set, { type => 'integer'};
+    public property id => prop_get | owner_set, { type => 'integer'};
 }
 
 __PACKAGE__->PassThroughArgs;
@@ -52,25 +52,25 @@
 
 use IMPL::lang;
 use IMPL::template(
-	parameters => [qw(TKey TValue)],
-	base => [qw(IMPL::Object)],
-	declare => sub {
-		my ($class) = @_;
-		my $item_t = spec KeyValuePair($class->TKey,$class->TValue);
-		
-		public $class->CreateProperty(items => prop_get | prop_list, { type => $item_t } )
-		
-		$class->static_accessor( ItemType => $item_t );
-	}
+    parameters => [qw(TKey TValue)],
+    base => [qw(IMPL::Object)],
+    declare => sub {
+        my ($class) = @_;
+        my $item_t = spec KeyValuePair($class->TKey,$class->TValue);
+        
+        public $class->CreateProperty(items => prop_get | prop_list, { type => $item_t } )
+        
+        $class->static_accessor( ItemType => $item_t );
+    }
 )
 
 sub Add {
-	my ($this,$key,$value) = @_;
-	
-	die new IMPL::ArgumentException( key => "Invalid argument type" ) unless is $key, $this->TKey;
-	die new IMPL::ArgumentException( value => "Invalid argument type" ) unless is $value, $this->TValue;
-	
-	$this->items->AddLast( $this->ItemType->new( key => $key, value => $value ) );
+    my ($this,$key,$value) = @_;
+    
+    die new IMPL::ArgumentException( key => "Invalid argument type" ) unless is $key, $this->TKey;
+    die new IMPL::ArgumentException( value => "Invalid argument type" ) unless is $value, $this->TValue;
+    
+    $this->items->AddLast( $this->ItemType->new( key => $key, value => $value ) );
 }
 
 =end code