Mercurial > pub > Impl
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 ); }