comparison _test/Test/Class/Template.pm @ 278:4ddb27ff4a0b

core refactoring
author cin
date Mon, 04 Feb 2013 02:10:37 +0400
parents 56364d0c4b4f
children
comparison
equal deleted inserted replaced
277:6585464c4664 278:4ddb27ff4a0b
17 use IMPL::template ( 17 use IMPL::template (
18 parameters => [qw(TValue)], 18 parameters => [qw(TValue)],
19 declare => sub { 19 declare => sub {
20 my ($class) = @_; 20 my ($class) = @_;
21 21
22 public $class->CreateProperty( items => prop_get | owner_set | prop_list, { type => $class->TValue } ); 22 $class->CreateProperty( items => prop_get | owner_set | prop_list, { type => $class->TValue } );
23 } 23 }
24 ); 24 );
25 25
26 BEGIN { 26 BEGIN {
27 public property name => prop_all; 27 public property name => prop_all;