Mercurial > pub > Impl
diff Lib/IMPL/DOM/Property.pm @ 38:d660fb38b7cc
small fixes
ORM shema to SQL schema transformation
author | Sergey |
---|---|
date | Mon, 23 Nov 2009 17:57:07 +0300 |
parents | 94d47b388442 |
children | 16ada169ca75 |
line wrap: on
line diff
--- a/Lib/IMPL/DOM/Property.pm Mon Nov 23 00:59:06 2009 +0300 +++ b/Lib/IMPL/DOM/Property.pm Mon Nov 23 17:57:07 2009 +0300 @@ -25,21 +25,21 @@ die new IMPL::InvalidOperationException("Custom mutators are not allowed","${class}::$name") if ref $mutators; if (($mutators & prop_all) == prop_all) { *{"${class}::$name"} = sub { - $_[0]->Property($name,@_[1..$#_]); + $_[0]->nodeProperty($name,@_[1..$#_]); }; $propInfo->canGet(1); $propInfo->canSet(1); } elsif( $mutators & prop_get ) { *{"${class}::$name"} = sub { die new IMPL::InvalidOperationException("This is a readonly property", "${class}::$name") if @_>1; - $_[0]->Property($name); + $_[0]->nodeProperty($name); }; $propInfo->canGet(1); $propInfo->canSet(0); } elsif( $mutators & prop_set ) { *{"${class}::$name"} = sub { die new IMPL::InvalidOperationException("This is a writeonly property", "${class}::$name") if @_<2; - $_[0]->Property($name,@_[1..$#_]); + $_[0]->nodeProperty($name,@_[1..$#_]); }; $propInfo->canGet(0); $propInfo->canSet(1);