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 {