diff Lib/IMPL/template.pm @ 167:1f7a6d762394

SQL schema in progress
author sourcer
date Thu, 12 May 2011 08:57:19 +0400
parents 76515373dac0
children d1676be8afcc
line wrap: on
line diff
--- a/Lib/IMPL/template.pm	Sat Apr 23 23:12:06 2011 +0400
+++ b/Lib/IMPL/template.pm	Thu May 12 08:57:19 2011 +0400
@@ -10,7 +10,7 @@
 	
 	my $class = caller;
 	
-	my @paramNames = grep /\w+/, @{$args{parameters} || []}; 
+	my @paramNames = grep m/\w+/, @{$args{parameters} || []}; 
 	my $declare = $args{declare};
 	my @isa = (@{$args{base} || []}, $class);
 	my %instances;
@@ -91,7 +91,7 @@
 		my ($class) = @_;
 		my $item_t = spec KeyValuePair($class->TKey,$class->TValue);
 		
-		public $class->CreateProperty(items => prop_get | prop_list, { type => $item_t } )
+		public $class->CreateProperty(items => prop_get | prop_list, { type => $item_t } );
 		
 		$class->static_accessor( ItemType => $item_t );
 	}