Mercurial > pub > Impl
diff lib/IMPL/Code/BasePropertyImplementor.pm @ 417:3ed0c58e9da3 ref20150831
working on di container, tests
author | cin |
---|---|
date | Mon, 02 Nov 2015 01:56:53 +0300 |
parents | ee36115f6a34 |
children | 7798345304bc |
line wrap: on
line diff
--- a/lib/IMPL/Code/BasePropertyImplementor.pm Thu Oct 29 03:50:25 2015 +0300 +++ b/lib/IMPL/Code/BasePropertyImplementor.pm Mon Nov 02 01:56:53 2015 +0300 @@ -53,8 +53,8 @@ } elsif ($spec =~ /(\*)?(r)?(w)?/) { return { get => $2 ? 1 : 0, - set => $3 ? 1 : 0, - ownerSet => $2 ? 1 : 0, + set => 1, + ownerSet => not($3), direct => $1 ? 1 : 0 }; } else {