Mercurial > pub > Impl
comparison 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 |
comparison
equal
deleted
inserted
replaced
416:cc2cf8c0edc2 | 417:3ed0c58e9da3 |
---|---|
51 direct => $spec & PROP_DIRECT | 51 direct => $spec & PROP_DIRECT |
52 }; | 52 }; |
53 } elsif ($spec =~ /(\*)?(r)?(w)?/) { | 53 } elsif ($spec =~ /(\*)?(r)?(w)?/) { |
54 return { | 54 return { |
55 get => $2 ? 1 : 0, | 55 get => $2 ? 1 : 0, |
56 set => $3 ? 1 : 0, | 56 set => 1, |
57 ownerSet => $2 ? 1 : 0, | 57 ownerSet => not($3), |
58 direct => $1 ? 1 : 0 | 58 direct => $1 ? 1 : 0 |
59 }; | 59 }; |
60 } else { | 60 } else { |
61 return die IMPL::Exception->new("Invalid property specification","$spec"); | 61 return die IMPL::Exception->new("Invalid property specification","$spec"); |
62 } | 62 } |