Mercurial > pub > Impl

comparison lib/IMPL/Code/BasePropertyImplementor.pm @ 411:ee36115f6a34 ref20150831

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author cin
date Mon, 21 Sep 2015 00:53:10 +0300
parents c6e90e02dd17
children 3ed0c58e9da3
comparison
equal deleted inserted replaced
410:9335cf010b23 411:ee36115f6a34
48 set => $spec & PROP_SET, 48 set => $spec & PROP_SET,
49 isList => $spec & PROP_LIST, 49 isList => $spec & PROP_LIST,
50 ownerSet => (($spec & PROP_OWNERSET) == PROP_OWNERSET), 50 ownerSet => (($spec & PROP_OWNERSET) == PROP_OWNERSET),
51 direct => $spec & PROP_DIRECT 51 direct => $spec & PROP_DIRECT
52 }; 52 };
53 } elsif ($spec =~ /(\*)?(r)?(w)?/) {
54 return {
55 get => $2 ? 1 : 0,
56 set => $3 ? 1 : 0,
57 ownerSet => $2 ? 1 : 0,
58 direct => $1 ? 1 : 0
59 };
53 } else { 60 } else {
54 return {}; 61 return die IMPL::Exception->new("Invalid property specification","$spec");
55 } 62 }
56 } 63 }
57 64
58 sub CreateFactoryId { 65 sub CreateFactoryId {
59 my ($self, $spec) = @_; 66 my ($self, $spec) = @_;